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Executive  Summary 

For  support  of  field  medical  units,  the  U.S.  Army  is  developing  a 
self-contained  wastewater  treatment  system  to  produce  potable  water  for 
use  within  the  unit.  To  aid  in  developing  the  control  strategy  and  the 
fault  detection/fault  isolation  logic,  a  dynamic  model  of  the  system  has 
been  developed. 

The  dynamic  model  consists  of  component  models  for  an  ultrafi It  ra¬ 
tion  unit,  a  tubular  reverse  osmosis  unit,  an  ozonation  contacting  unit, 
and  a  hyperchlorination  unit.  These  component  models  are  incorporated 
into  a  process  simulator  to  facilitate  the  simulation  of  a  variety  of 
configurations  for  water-reuse  processes.  In  addition  to  the  component 
models,  the  process  simulator  includes  models  for  general  purpose 
process  elements  such  as  mixed  tanks,  overflow  tanks,  pumps,  stream 
splitters,  and  stream  mixers,  and  general  purpose  control  elements  such 
as  sensors,  manipulators,  binary  controllers,  ratio  controllers,  and  PID 
controllers. 

To  estimate  the  coefficients  in  the  individual  component  models,  a 
Pattern  Search  strategy  was  used  to  minimize  a  cost  function  which 
penalized  for  model  deviation  from  experimental  data.  Experimental  data 
were  obtained  first  from  experiments  that  formed  the  basis  of  the  design 
of  a  pilot  plant  version  of  a  water-reuse  system  and  then  from  the 
operation  of  this  plot  plant. 

To  make  the  integrated  model  as  flexible  as  possible,  the  plant 
configuration — the  process  units,  as  well  as  the  origin  and  destination 
of  every  stream — is  specified  by  input  data.  Details  on  the  use  of  the 
simulator  and  the  preparation  of  input  data  are  included  in  this  report. 
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Introduction 


The  U.S.  Army  has  a  requirement  to  provide  a  mission-oriented 
medical  treatment  system  which  is  designed  and  equipped  to  facilitate 
rapid  establishment  and  disestablishment.  The  flexibility  permits 
immediate  response  for  a  medical  support  unit  to  any  tactical, 
environmental  or  geographical  change.  This  system  will  provde  a 
contamination- free  and  controlled  environment  in  which  medical,  surgical 
and  ancillary  procedures,  and  other  supporting  functions  can  be 
performed. 

The  mobile  medical  treatment  system  is  termed  the  MUST  Medical 
Complex.  Associated  with  the  MUST  Medical  Complex  is  a  Water  and  Waste 
Management  Subsystem  (WWMS)*.  This  subsystem  is  required  to  treat  and 
dispose  of,  without  degradation  of  the  environment  or  danger  to  personal 
health,  all  toxic  and  contaminated  waste  materials  generated  within  the 
functional  areas  of  the  Medical  Complex.  In  addition  to  the  waste 
treatment  and  disposal,  the  Water  Processing  Element  (WPE)  within  the 
WWMS  must  be  capable  of  producing  potable  water  from  a  fresh  or  brackish 
water  source  and  nonconsumptive  resuse  water  from  the  MUST  Medical 
Complex  waste  water  effluent. 

The  objectives  of  this  program  were  to: 

1.  Develop  an  integrated  dynamic  model  describing  the  operational 
characteristics  of  the  water  processing  element.  Emphasis  was 
placed  on  the  reuse  mode  of  operation  utilizing  the  MUST  hospital 
composite  waste  or  the  x-ray,  laboratory,  and  OR  composite  waste. 
The  methodology  to  apply  the  model  to  other  configurations  and 
other  wastes  was  also  developed. 

*The  WWMS  was  deleted  from  the  MUST  in  1978. 
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2.  Develop  a  control/monitoring  system  for  the  operation  of  the  WPE, 
using  the  dynamic  model  as  the  basis. 

3.  Develop  a  fault  detection/ fault  isolation  package  for  the  WPE, 
using  the  dynamic  model  as  the  basis. 

The  first  two  of  the  objectives  were  accomplished,  and  were 
incorporated  into  a  simulator  program  written  for  a  digital  computer. 

The  purpose  of  this  report  is  to  provide  an  overview  of  the  dynamic 
process  simulator,  and  to  describe  the  procedures  necessary  to  run  the 
program. 
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MODELING  AND  SIMULATION  OF  WASTEWATER 


REUSE  SYSTEMS  -  DYNAMIC  PROCESS  SIMULATOR 


1 .  Overview 

The  dynamic  process  simulator  is  a  general  purpose  computer 
program.  The  configuration  of  the  process  is  specified  by  the  input 
data,  along  with  the  parameters  that  specify  the  characteristics  of  the 
individual  items  of  equipment  in  the  process.  This  permits  a  variety  of 
process  configurations  to  be  investigated  without  requiring  any  changes 
in  the  program  source  code.  While  the  structure  of  the  simulator  is 
very  general,  the  program  has  been  tailored  to  meet  the  needs  of  the 
MUST  WPE. 


2. 


Streams 


For  purpose  of  the  simulator,  the  process  is  represented  by  in¬ 
dividual  pieces  of  equipment  interconnected  by  process  streams.  As¬ 
sociated  with  each  stream  is  a  stream  vector  that  specifies  the 
status  of  the  stream.  The  number  of  elements  in  each  stream  vector 

is  n  . 
s 

The  first  element  in  the  stream  vector  is  always  the  flow  rate. 

The  remaining  elements  define  the  properties  of  the  stream  (composition 
temperatures,  etc.).  As  presently  implemented  for  the  MUST  WPE,  a 
stream  vector  consists  of  the  following: 

Element  Definition 

3 

1  Flow,  m  /hr 

2  Concentration  of  suspended  solids , 

g/m^ 

3  Concentration  of  dissolved  solids, 

g/m^ 

4  Concentration  of  total  organic  carbon, 

(TOC),  g/m^ 

At  some  time  in  the  future,  it  may  be  necessary  to  add  temperature 
and/or  pressure  to  this  list. 

Each  stream  in  the  process  is  designated  by  a  unique  number. 


For  each  unit,  the  following  Information  must  be  entered: 

1.  Unit  number 


b 


2 .  Equipment  type 

3.  Input  streams 

4.  Output  streams 

5.  Parameters  specifying  equipment  characteristics 

For  each  unit  two  data  cards  must  be  entered.  The  first  data  card 
specifies  the  first  four  items  in  the  above  list;  the  second  card 
specifies  the  parameters. 

For  each  unit  a  maximum  of  five  streams  may  be  specified,  with 
any  mix  of  input  and  output  streams.  The  data  required  are  as 
follows: 

1.  Unit  number 

2 .  Equipment  type 

3.  Stream  1 


4.  Stream  2 


5.  Stream  3 


6.  Stream  4 


7.  Stream  5 


The  data  are  entered  using  FORMAT  (1X,I4,3X,A2,5I5) . 
For  example,  the  unit  Unit  #2 


would  be  specified  by  the  entry 
2  P  5-6 

By  convention,  input  streams  are  designated  by  positive  stream 
numbers  and  output  streams  by  negative  stream  numbers.  Normally  all 
input  streams  appear  prior  to  output  streams.  For  certain  types  of 
equipment,  the  order  is  significant. 

The  data  parameters  are  also  specific  to  each  type  of  equipment. 

The  simulator  presently  recognizes  the  following  types  of  equipment 


Type  Code 

Mixed  tank  MT 

Overflow  tank  0T 

Pump  P 

Stream  splitter  SF 

Stream  source  S0 

Stream  mixer  SM 

Ultrafiltration  unit  UF 

Gel  model  UF  unit  GM 

Reverse  Osmosis  unit  R0 

Tubular  RO  unit  TR 

UV/oxinatlon  unit  UV 

Hypochlorlnatlon  unit  HC 

Sink  SK 


Other  pieces  of  equipment  can  be  easily  added  to  the  simulator. 
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3.1  Mixed  Tank  (MT) 

The  mixed  tank  is  described  by  a  total  material  balance  and  three 
component  material  balances.  The  total  material  balance  is: 


dt  input 


F  —  F 

i  output  j 


where  V  =  volume  of  liquid  in  the  tank,  m 

3 

=  flow  rate  of  input  stream,  m  /hr 

3 

Fj  =  flow  rate  of  output  stream,  m  /hr 
Each  component  material  balance  is: 

77-  (VC)  =  .  ^  ^  F.C.  -  ^  ^  F.C. 
dt  input  1  1  output  j  j 

3 

where  C  =  concentration  in  the  tank,  g/m 

3 

=  concentration  in  input  stream,  g/m 

3 

Cj  =  concentration  in  output  stream,  g/m 
Any  combination  of  input  and  output  streams  are  permitted.  The 
concentration  of  all  exit  streams  are  the  same  as  the  concentration 
in  the  tank. 

For  the  mixed  tank,  the  following  four  parameters  are  required; 


Par  1 


Par  2 


Par  3 


Par  4 


Initial  volume  of  liquid  in  the  tank,  m 

Initial  concentration  of  suspended  solids  in  the  tank,  g/m 
Initial  concentration  of  dissolved  solids  in  the  tank,  g/m 

3 

Initial  concentration  of  TOC  in  the  tank,  g/m 


These  parameters  are  entered  via  FORMAT  (4F10.4). 

In  the  initialization  calculations  for  the  mixed  tank,  the  concen¬ 


trations  of  all  output  streams  are  specified  as  the  initial  concentra¬ 


tions  in  the  tank 


3.2  Overflow  tank  (OT) 


The  basic  equations  of  the  overflow  tank  are  the  same  as  for  the 


hUl 


mixed  tank.  However,  the  first  stream  must  be  the  overflow  stream 


and  is  specified  as  follows: 


F,  =  for  0  <  V  <  V 
1  T  max 

F  =  ,  ^  ^  F  -  /  ^  F.  for  V  =  0  or  V  =  V 

1  input  i  output  j  max 


where 


F^  =  overflow  stream  flow  rate,  m  /hr 

3 

F^  =  design  overflow-rate,  m  /hr 

3 

V  =  volume  of  liquid  in  tank,  m 

3 

V  =  maximum  volume  of  liquid  in  tank,  m 
max 

3 

F^  =  flow  rate  of  input  stream,  m  /hr 

3 

Fj  =  flow  rate  of  output  stream,  m  /hr 

Both  F„  and  V  are  data  parameters. 

T  max 

The  following  six  parameters  are  required  for  the  overflow  tank: 


Par  1 


Par  2 


Par  3 


Par  4 


Par  5 


Par  6 


Initial  volume,  m 

3 

Initial  concentration  of  suspended  solids,  g/m 

3 

Initial  concentration  of  dissolved  solids,  g/m 

3 

Initial  concentration  of  TOC,  g/m 

3 

Design  overflow  rate,  m  /hr 
3 

Maximum  volume,  m 


These  parameters  are  entered  according  to  FORMAT  (6F10.4). 

In  the  Initialization  calcualtlons ,  the  concentration  of  all 
output  streams  are  set  equal  to  the  initial  concentration  in  the  tank. 


Also,  the  overflow-rate  is  set  equal  to  F,p. 


This  piece  of  equipment  represents  either  a  constant  volume  pump 
or  a  variable  volume  pump  followed  by  a  flow  controller.  The  first 
stream  must  be  the  input  stream;  the  second  must  be  the  output 
stream. 

The  basic  equation  for  this  pump  is  as  follows: 

F  =  F,  =  F 

1  2  p 

3 

where  F^  =  flow  rate  through  pump,  m  /hr 

3 

F^  =  flow  rate  of  input  stream,  m  /hr 

3 

F2  =  flow  rate  of  output  stream,  m  /hr 
Furthermore,  the  concentration  of  the  output  stream  is  set  equal  to 
the  concentration  of  the  input  stream. 

The  only  input  parameter  is  F^,  which  is  entered  via  FORMAT (FIO. 4) , 
The  Initialization  calculations  are  the  same  as  the  normal 
calculations. 


The  purpose  of  this  piece  of  equipment  is  to  split  an  input 
stream  into  two  output  streams  where  the  flow  rate  of  one  output 
stream  is  specified.  The  streams  are  specified  in  the  following  order 

1.  Input  stream 

2.  Output  stream  where  flow  is  fixed 

3.  Output  stream  where  flow  varies 

The  flow  equation  describing  this  piece  of  equipment  is  as 
follows: 


I  F  if  F,  >  F 
_  s  1  —  s 

F,  if  F,  <  F 
1  1  s 


3 

where  Fj^  =  flow  rate  of  input  stream,  m  /hr 

3 

F2  =  flow  rate  of  first  output  stream,  m  /hr 

3 

F^  =  flow  rate  of  second  output  stream,  m  /hr 

3 

F  =  the  design  split,  m  /hr 
s 

The  concentrations  in  both  output  streams  are  set  equal  to  the  input 
concentration . 


The  only  parameter  required  is  F  ,  which  is  entered  via  FORMAT 

s 

(F10.4). 

The  initialization  calculations  are  the  same  as  the  normal 


calculations. 


For  this  unit,  the  following  parameters  are  required: 

Par  1:  Time  of  first  pulse,  t^^,  hr 

Par  2:  Time  duration  of  pulse,  t  ,  hr 

on 

Par  3:  Time  of  cycle,  hr 

3 

Par  4:  Flow  rate  during  pulse,  m  /hr 

3 

Par  5:  Concentration  of  suspended  solids,  g/m 

3 

Par  6:  Concentration  of  dissolved  solid,  g/m 

3 

Par  7:  Concentration  of  TOC,  g/m 
These  are  entered  via  FORMAT  (7F10.4) 

The  Initialization  calculations  are  the  same  as  for  the  normal 
calculations . 

All  Input  streams  must  originate  with  a  stream  source  block. 


i... 


3.6  Stream  Mixer  (SM) 


The  stream  mixer  Is  designed  to  combine  up  to  four  input  streams 
to  produce  a  single  output  stream.  In  specifying  the  streams,  the 
output  stream  must  be  specified  last. 

The  flow  equations  describing  this  unit  are  as  follows: 


F  =  F 

j  input  i 


where  F^  =  flow  rate  of  input  stream 

Fj  =  flow  rate  of  output  stream 

The  equation  for  each  concentration  is  as  follows: 

^  F  C 
„  _  input  1  i 

j  ■  y. 


where  =  concentration  in  input  stream 
Cj  =  concentration  in  output  stream 
No  parameters  are  required  for  this  unit. 

The  Initialization  calculations  are  the  same  as  the  normal  calcula 


3.7  Ultrafiltration  Unit  (UF) 

This  piece  of  equipment  consists  of  parallel  banks  of  filtration 
tubes.  The  feed  stream  is  forced  into  one  end  of  the  tube  bundle,  water 
and  dissolved  solids  are  forced  through  the  tubes  and  collected  as  the 
filtered  permeate.  The  concentrate  stream  is  high  in  suspended  solids, 
and  is  collected  out  of  the  other  end  of  the  bundle.  In  specifying  the 
streams,  tie  permeate  stream  must  be  first,  the  concentrate  stream  must 
be  second,  and  the  feed  stream  must  be  third. 

See  Starks  and  Smith  (1)  and  Starks  (3)  for  the  model  equations. 
The  parameters  required  for  this  unit  are: 

Par  1:  Number  of  tubes 

Par  2:  Temperature  of  feed,  °K 

Par  3:  Pressure  drop  across  the  membrane  at  the  inlet,  atm 

Par  4:  Pressure  drop  down  the  tubes,  atm 

Par  5:  Diameter  of  a  tube,  m 

Par  6:  Length  of  a  tube,  m 


These  are  entered  via  FORMAT  (6F10.4), 

The  initialization  calculations  are  the  same  as  for  the  normal 


calculations . 


3.8  Tubular  Reverse  Osmosis  Unit  (TR) 


This  piece  of  equipment  is  essentially  the  same  as  the 
ultrafiltration  unit,  except  that  the  tube  diameter  is  one  or  two  orders 
of  magnitude  smaller,  and  the  filtration  membrane  has  smaller  pores. 
These  two  differences  lead  to  higher  rejection  of  dissolved  solids  and 
TOC.  See  section  3.7  on  the  UF  unit  for  a  definition  of  the  input  and 
output  streams. 

The  parameters  required  for  this  unit  are  the  same  as  for  the  OF 
unit  given  in  Section  3.7. 

The  initialization  calculations  are  the  same  as  for  the  normal 
calculations . 
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3.9  Gel  Model  Ultrafiltration  Unit  (GM) 

This  piece  of  equipment  is  essentially  the  same  as  the  tubular  RO 
unit,  except  that  the  boundary  layer  is  assumed  to  form  a  gel  on  the 
inside  surface.  This  gel  increases  the  rejection  of  dissolved  solids 
and  TOC.  See  section  3.7  on  the  UF  unit  for  a  definition  of  the  input 
and  output  streams . 

The  parameters  required  for  this  unit  are  the  same  as  for  the  UF 
unit  given  in  Section  3.7. 

The  initialisation  calculations  are  the  same  as  for  the  normal 


calculations . 


3.10  Reverse  Osmosis  Unit  (RO) 

This  piece  of  equipment  consists  of  a  bundle  of  tube  fibers  around 
a  central  porous  tube.  The  feed  enters  the  central  tube  under  very  high 
pressure.  The  contaminated  water  flows  radially  around  the  outside  of 
the  fibers,  forcing  the  water  to  permeate  to  the  inside  of  the  tubes; 
the  fluid  in  the  fibers  is  collected  as  the  permeate  stream.  The  fluid 
that  reaches  the  outer  region  of  the  bundle  is  very  high  in 
concentration  of  dissolved  solids  and  TOC  and  is  collected  as  the 
concentrate  stream.  Suspended  solids  should  not  be  present  in  the  feed. 
The  rejection  is  very  high,  but  the  flow  rate  is  very  small.  The  feed 
to  the  RO  unit  should  be  the  permeate  of  an  ultrafiltration  unit,  UF, 
TR,  or  GM.  In  specifying  the  streams,  the  permeate  must  be  first,  the 
concentrate  must  be  second,  the  feed  must  be  third. 

See  Starks  and  Smith  (2)  and  Starks  (3)  for  the  model  equations. 
The  parameters  required  for  this  unit  are: 

Par  1:  Pressure  drop  across  the  membrane  (fiber),  atm 

Par  2:  Temperature  of  the  feed,  ®K 

Par  3:  Length  of  the  fibers,  m 

Par  4:  Outer  radius  of  bundle,  m 

Par  5:  Inner  radius  of  bundle,  m  (center  tube  outer  radius) 

Par  6:  Diameter  of  a  fiber,  m 

These  are  entered  via  FORMAT  (6F10.4). 

The  initialization  calculations  are  the  same  as  for  the  normal 


calculations . 


This  piece  of  equipment  is  used  to  oxidize  organic  compounds  by 
ultraviolet  activate  ozonation.  The  contaminated  water  is 
simultaneously  sparged  with  ozone  and  irradiated  with  ultraviolet  light 
The  unit  consists  of  a  precontactor  and  six  contact  stages  in  series. 
There  is  one  input  stream  and  one  output  stream.  In  specifying  the 
streams,  the  feed  stream  must  be  specified  first  and  the  effluent 
(output)  stream  must  be  specified  second. 

See  Starks  (3)  for  the  model  equations. 

The  parameters  required  for  this  unit  are: 

Par  1:  Initial  concentration  of  suspended  solids,  g/m^ 

Par  2:  Initial  concentration  of  dissolved  solids,  g/m^ 

Par  3:  Initial  concentration  of  TOC,  g/m^ 

Par  4:  Inlet  0^  concentration,  moles  O^/mole  gas 

Par  5:  Volumetric  gas  flow  rate,  m^/hr 

Par  6:  Precontactor  flag  (0  =  No  precontactor) 

Par  7:  Number  of  stages 

Par  8:  Area  of  a  contactor,  m^ 

Par  9:  Area  of  a  precontactor,  m^ 

Par  10:  Height  of  a  stage,  m 

Par  11:  Feed  temperature,  °K 

Par  12:  Operating  pressure,  atm 

These  are  entered  via  FORMAT  (12F10.4).  Note  that  two  parameter  cards 
are  necessary  (1-8  on  the  first,  9-12  on  the  second). 

The  initialization  calculations  are  the  same  as  for  the  normal 


calculations . 


3.12  Hypochlorite  Unit  (HC) 


This  piece  of  equipment  is  a  stirred  tank  in  which  calcium 
hypochlorite  Ca(0  Cl)2  is  added  to  serve  as  a  bacteria  retardant.  The 
feed  stream  must  be  specified  first  and  the  effluent  stream  must  be 
specified  second. 

See  Starks  (3)  for  the  model  equations. 

The  parameters  for  this  unit  are: 

Par  1:  pH  of  the  output 

Par  2:  Initial  chlorite  in  the  HC  unit 

Par  3:  Initial  concentration  of  suspended  solids,  g/m^ 

Par  4:  Initial  concentration  of  dissolved  solids,  g/m^ 

Par  5:  Initial  concentration  of  TOC,  g/m^ 

Par  6:  Feed  rate  of  calcium  hypochlorite,  m^/hr 

Par  7:  Volume  of  HC  unit,  m^ 

Par  8:  Concentration  of  Ca(0  Cl)2,  g/m^ 

These  are  entered  via  FORMAT  (8F10.4). 

Initialization  calculations  assume  that  the  hypochlorination  tank 
is  filled  up  to  its  maximum  volume  at  the  concentration  of  the  feed 


stream. 


3.13  Sink  (SK) 


As  Indicated  earlier,  all  input  streams  to  the  process  must 
originate  with  the  source  block.  Similarly,  all  streams  leaving  the 
process  must  be  inputs  to  a  block  called  the  "Sink".  One  reason  for 
this  is  that  each  stream  must  originate  with  one  and  only  one  block 
and  each  stream  must  terminate  with  one  and  only  one  block. 

Actually,  the  sink  block  plays  no  role  in  the  simulation.  The 
only  calculation  procedure  Involved  is  that  the  collective  stream 
flows  (total  and  component)  are  integrated  for  the  overall  material 
balance  calculations. 

Each  sink  block  may  have  up  to  five  input  streams.  The  process 
configuration  may  contain  multiple  sink  blocks. 
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A.  Control  Elements 

For  each  control  element,  the  following  Information  must  be 
entered: 

1.  Unit  number 

2.  Control  element  type 

3.  Parameters  specifying  control  element  characteristics 

As  for  other  units  In  the  simulator,  two  data  cards  must  be  entered 
for  each  control  element.  The  first  data  card  specifies  items  one  and 
two  above;  the  second  card  specified  the  parameters. 

Unlike  the  process  equipment,  there  are  no  input  or  output  streams 
to  be  specified.  The  first  card  is  entered  using  FORMAT  (1X,I4,3X,A2) . 

For  example,  the  unit 


- Jontrojlfiy^  CONTROLLER  -C2Ptioner_  ^ 

Input  Output 

(type:  CN) 


would  be  specified  by  the  entry 
40  CN 

The  data  parameters  are  specific  to  each  type  of  control  element. 
There  are  three  basic  control  elements:  the  sensor,  the  manipulator, 
and  the  controller.  A  control  scheme  is  defined  by  a  unique  group  of 
sensor-controller-manipulator  arrangement.  The  unit  numbers  for  each 
control  element  in  a  control  scheme  must  be  sequential,  starting  with 
the  sensor.  For  example: 


Measured 

Variable 


N  'N  .S  . 


-V  ~r  - 


The  simulator  presently  recognizes  the  following  types  of  control 
elements: 

TYPE  CODE 


Sensor 

SN 

Manipulator 

MN 

Binary  Controller 

BC 

Ratio  Controller 

RC 

PID  Controller 

CN 
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4.1  Sensor  (SN) 

The  sensor  is  used  to  "measure”  (return)  the  value  of  either  a  unit 
parameter  (i.e.  volume)  or  a  stream  element  (flow  rate  or  concentration). 
The  computational  equation  is: 

it.  t  i'  0 

'n't  ■  t  ° 

where  is  the  output  of  the  sensor  (to  the  controller) 
r  is  the  "reading"  or  "measured  value" 
is  the  previous  output  value 
T  is  the  integration  time  constant,  hr 
At  is  the  integration  step  size,  hr 
The  parameters  required  are: 

Par  1:  Unit  number  or  stream  number 

Par  2:  Parameter  or  element  number 

Par  3:  Initial  output  value 

Par  4:  The  integration  time  constant,  T,  hr 

These  parameters  are  entered  via  FORMAT  (410.4).  To  specify  a  unit, 
enter  a  negative  value;  to  specify  a  stream,  enter  a  positive  value. 

The  Initialization  calculations  are  the  same  as  the  normal  cal¬ 
culations. 
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y.-'. 


^max  upper  limit  of  the  parameter 

The  parameters  required  are: 

Par  1:  Unit  number  of  unit  to  manipulate  (negative) 

Par  2:  Ntuaber  of  parameter  to  be  manipulated 
Par  3:  Initial  output  value 
Par  4:  Upper  limit 
Par  5:  Lower  limit 

These  parameters  are  entered  via  FORMAT  C3F10.4). 

The  Initialization  calculations  are  the  same  as  the  normal 


calculations 


4.3  Binary  Controller  (BC) 


m 

i*  •» 

Cv? 


.-'t 


m 


This  control  element  represents  a  binary  (on/off)  controller, 
computational  equation  Is: 

If  automatic 


The 


m  = 
n 


.  > 

If  c 

<  c 

min 

min 

if 

c  < 

n-1 

min  — 

m  , 

if 

c  >  c 

max 


max 


if  manual 


m 


m 


man 


where  is  the  controller  output 


^  is  the  previous  value 


”mln  lower  limit  output 


m  is  the  upper  limit  output 
max 


c  is  the  controller  input  (sensor  output) 


Snln  lower  setpoint 


Snax  upper  setpoint 


The  parameters  required  are: 


Par  1 
Par  2 
Par  3 
Par  4 
Par  5 
Par  6 
Par  7 
Par  8 


Sensor  unit  number  (negative) 

Manipulator  unit  number  (negative) 

Lower  setpoint  value 
Upper  setpoint  value 
Initial  output  value 
Upper  limit  output  value 
Lower  limit  output  value 

Operation  mode  (negative  *  Automatic,  positive  =  value  for  Manual) 
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4.4  Ratio  Controller  (RC) 

This  control  element  represents  a  ratio  controller.  The  computational 
equation  is 

r  c,  if  automatic 

m  “ 

m  .if  manual 
man 

where  m  is  the  controller  output  value 
r  is  the  ratio  (output/input) 

G  is  the  controller  input  (sensor  output) 
m  is  the  output  value  for  manual 
The  parameters  required  are 
Par  1;  Unit  number  of  sensor  (negative) 

Par  2;  Unit  number  of  manipulator  (negative) 

Par  3;  Ratio 

Par  4;  Operation  mode  (negative  =  Automatic,  positive  =  value  for  Manual) 

These  parameters  are  entered  via  FORMAT  (4F10.4). 

The  Initialization  calculations  are  the  same  as  the  normal 


calculations . 


4.5  PIP  Controller  (CN) 

This  control  element  represent  a  three  mode,  proportional- integral- 
derivative,  controller.  The  computational  equation  is  the  velocity 
algorithm: 


dt 

d^e. 


dt 


^  t  ®1-1^ 


(A  t) 


2  ^®i  ~  ^  ®i-l  ^  ®i-2^ 


^  +  Am^  At,  if  automatic 


m 


1+1 


m 


man 


,  if  manual 


where  r  is  the  set  point  value 

c^  is  the  measured  variable 

e.  is  the  error  in  the  signal 
1  ^ 

At  is  the  integration  step  size 
m^  is  the  controller  signal 
is  the  controller  gain 
Tj  is  the  reset  time  constant,  hr 
Tjj  is  the  derivative  time  constant,  hr 
m  is  the  output  value  for  manual 
The  parameters  required  are: 

Far  1:  Sensor  unit  number  (negative) 

Par  2:  Manipulator  unit  number  (negative) 
Par  3:  Setpoint 
Par  4:  Gain,  K 

c 
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Par  5;  Reset  time  constant,  hr 
Par  6;  Derivative  time  constant,  hr 

Par  7;  Operation  mode  (negative  =  Automatic,  positive  =  value  for  Manual) 

These  parameters  are  entered  via  FORMAT  (7F10.4). 

The  initialization  calculations  are  the  same  as  the  normal 
calculations. 


5.  Data  Preparation 


The  input  data  cards  provide  for  the  entry  of  the  following  types 
of  information. 

1.  Model  parameters  such  as  kinetic  parameters,  mass  transfer 
coefficients,  etc. 

2.  Specification  of  the  plant  Itself,  including 

a.  Configuration  (equipment  and  streams) 

b.  Design  parameters 

c.  Initial  conditions 

3.  Descriptions,  including 

a.  Equipment  names 

b.  Names  for  equipment  parameters 

c.  Stream  names 

d.  Names  for  stream  elements 

4.  Run  control  parameters  (time  of  run,  integration  interval) 

5.  Variables  to  be  printed,  which  may  be  either 

a.  Any  element  of  any  stream  (e.g.,  flow  rate  of  stream  5) 

b.  Any  parameter  associated  with  any  unit  (e.g..  Volume 
of  liquid  in  unit  8) 

6.  Plot  control  information.  Including 

a.  Variables  to  be  plotted 

b.  Time  of  plot 

c.  Arrangement  of  graphs 

7.  Variables  to  be  save  on  an  offline  storage  medium,  which  may  be  either 

a.  Any  element  of  any  stream 

b.  Any  parameter  associated  with  any  unit 

8.  Retrieval  of  variables  from  a  previous  run  saved  on 
offline  storage. 
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As  the  data  are  entered,  checks  are  made  to  assure  that  the  data  are 
meaningful. 

To  assist  in  the  preparation  of  a  data  deck,  data  control  cards 
are  used  to  establish  segments  in  the  data  deck.  The  first  and  last 
cards  in  each  segment  are  data  control  cards.  The  data  control  card 
that  appears  at  the  beginning  of  the  segment  consists  of  an  asterisk 
(*)  in  column  1  followed  by  up  to  three  characters  that  identify  the 
segment.  The  data  control  card  at  the  end  of  the  segment  consists 
only  of  an  asterisk  (*)  in  column  1. 

Table  5.1  lists  the  nine  segments  and  specifies  the  data  control 
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that  were  saved  on  an  off-line 


{model  parameters} 

;e 

{stream  element  definitions} 

.N 

{stream  descriptions} 

{plant  configuration} 

IF 

{off-line  variable  definitions} 

R 

{print  variable  definitions} 

L 

{plot  variable  definitions} 

C 

{plot  control  information} 

L 

{old  value  definitions} 

,UN 

{run  time  and  integration  size} 


Figure  5.1.  Data  deck 


5.1  Model  Parameters  (*MP) 

For  modules  such  as  UF,  RO,  etc. ,  the  model  parameters  are  deter¬ 
mined  by  fitting  the  model  to  experimental  data.  Thus,  it  is  necessary 
to  provide  a  facility  whereby  these  parameters  can  be  easily  changed. 
Four  options  are  available: 

1.  Within  the  subroutine  for  each  respective  module,  use  DATA 
statements  to  specify  the  model  parameters.  This  is  acceptable 
only  if  the  primary  subroutine  does  not  call  additional  sub¬ 
routines  that  require  the  model  parameters. 

2.  Put  all  model  parameters  into  a  labeled  COMMON  statement,  and 
then  use  DATA  statements  in  the  BLOCK  DATA  subprogram  to 
initialize  the  parameters. 

3.  Put  all  model  parameters  into  a  labeled  COMMON  statement,  and 
then  read  the  values  of  the  model  parameters  from  data 
cards . 

4.  A  combination  of  options  2  and  3.  A  set  of  model  parameters 
are  Initialized  in  the  BLOCK  DATA  subprogram.  Different  values 
may  be  entered  through  the  use  of  NAMELIST  statements. 

The  model  parameter  (*MP)  segment  of  the  data  deck  uses  option  4. 

Upon  encountering  the  *MP  data  control  card,  the  program  calls 
subroutine  RMODPR.  This  subroutine  consists  of  statements  such  as 

READ  (5,NAMER0) 

NAMERO  is  the  name  of  a  NAMELIST  block  for  model  parameters  for  the  RO 
model.  Any,  all,  or  none  of  the  NAMELIST  parameters  may  be  specified. 
These  parameters  are  contained  in  labeled  COMMON  statements  that  also 
appear  in  the  subroutines  in  which  the  values  of  the  parameters  are 
needed. 

Parameters  to  be  modified  are  specified  as  follows: 
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XX 


&NAMEXX 
A  =  X,  B  =  y, 

C  -  z 
&END 

where  XX  is  the  two  character  code  of  the  desired  module,  i.e.  UF,  RO 
A,B,C,  etc.  are  the  names  of  the  parameters  of  XX  to  be  changed 
x,y,z,  etc.  are  the  corresponding  numeric  values 
The  user  of  the  simulator  can  readily  add  parameters,  delete 
parameters,  and  make  any  other  changes  required  to  meet  the  needs  of 
the  respective  module  for  which  the  parameters  are  being  read.  Figure 
5.2  gives  the  listing  for  RMODPR  for  reading  the  parameters  for  the 
ultrafiltration  module  only.  Figure  5.3  lists  the  *MP  segment  of  the 
data  deck,  and  Figure  5.4  gives  the  corresponding  output  listing.  The 
parameters  are  written  from  RMODPR  so  that  errors  may  readily  be  detected, 
and  so  that  outputs  of  runs  using  different  values  may  be  identified. 

If  no  model  parameters  are  to  be  changed  from  the  default  values, 
then  the  *MP  section  may  be  omitted.  In  this  case,  no  parameters  are 
changed  or  printed  out.  If  it  is  desired  to  have  a  list  of  all  of  the 
default  values,  then  enter 
*MP 
NONE 
* 


non 


SOBBOOTINE  RMODPR 


READ  MODEL  PARAMETERS 

REAL  MHHOCL,  MWOCL,  L,  NF,  NTPIDT,  KLA,  KHRNRY,  KPATE, 
C  KDCOHP 

RBAL*8  VHC,  ALPHC,  RDHC,  KEQHC,  CAOCL2,  DTHC 
C  LABELED  COMMON  STATEMENTS  FOR  REVERSE-OSMOSIS  UNITS 

COMMON  /REVOS1/  L,  FLOW,  RO,  HI,  DR,  DP,  DELP,  RHOB, 

C  TOLHX,  TOLMN 

COMMON  /ROFIT  /  AKA,  AKC,  ERE,  APIRO,  BPIRO,  GAHARO, 

6  BRO,  CRO,  NP,ROKE 

COMMON  /GFPARM/  TEMP,  VISC,  MCNT2,  MCHT3,  JWRITB 
COMMON  /REVOS2/  KWRITE,  NSTEPS 
C  LABELED  COMMON  STATEMENTS  FOR  OZONE  UNITS 
COMMON  /STAGES/  NSTAGE,  PRECON 

COMMON  /OZFIT/  KHENRT,  ECOZ,  ETOC,  KRATE,  KDCOMP, 

6  EOZD,  UVEFCT,  ALPHA,  EH,  QPRIME 

COMMON  /OZOPER/  CARPA,  PAREA,  UVH,  UVRHO,  UVPRES, 

S  UTTEMP,  NNRITB 

COMMON  /GASLAN/  R6AS 

C  LABELED  COMMON  STATEMENTS  FOR  ULTRAFILTRATION  MODULE 

COMMON  /UFPABH/  PLENOP,  DTUBUF,  NTUP,  JPUFSS,  JHUFSS 
COMMON  /PARMUF/  TEMPO?,  VISCOF,  DENBUF,  ZRBOUF,  DROPUF 
COMMON  /0FSAV1/  NSTPOF 

COMMON  /OFFIT  /  G10F,  G20F,  GINFDF,  Cl,  C2,  CINF 
C  LABELED  COMMON  STATEMENTS  FOR  TUBULAR  R-O  MODULE 

COMMON  /TRPARM/  PLBHTR,  DTUBTR,  NTTR,  JPTRSS,  JNTRSS 
COMMON  /PARMTR/  TSMPTR,  VISCTR,  DENBTR,  ZEROTR,  DROPTR 
COMMON  /TRFIT/  G1TR,  G2TR,  GINFTR,  APITR,  BTR,  CTR, 

G  DCXTR,  ADAXTR,  BDAXTR,  CDAXTR 

C  LABELED  COHMON  STATEMENTS  FOR  GEL-MODEL 

COMMON  /GMPARM/  PLENGM,  DTUBGH,  NTGH,  JP6NSS,  JNGMSS 
COMMON  /PABMGM/  TEKPGN,  VISCGH,  DENBGH,  ZEROGM,  DROPGH 
COMMON  /GMFIT/  GAMMA,  APIGM,  BPIGH,  BGM,  CGH,  RATIO, 

G  DCXGM,  ADAXGM,  BDAXGM,  CDAXGM,  CAGEL 

C  LABELED  COMMON  STATEMENTS  FOR  HY POCHLOR IHATION  MODULE 
COMMON  /HCOPER/  VHC,  ALPHC,  RDHC,  KEQHC,  JHRTHC, 

G  HCHTHC,  CAOCL2,  DTHC 

COMMON  /HCSAV2/  HHHOCL,  HHOCL,  HCRHO 
DIMENSION  JCABD(20),  IUNIT(8) 

NAMELIST  /NAHERO/  TOLMX,  TOLMN,  HCHT2,  MCNT3,  KNRITB, 

G  AKA,  AKC,  ERE,  APIRO,  BPIRO,  GANARO, 

G  BRO,  CRO,  NF,  ROKE,  JNRITB,  NSTEPS 

NAMELIST  /NAHEUV/  KHENPY,  ECOZ,  ETOC,  KRATE,  KDCOHP, 

G  EOZD,  UVEFCT,  ALPHA,  EN,  QPRIME, 

G  NHRITE,  RGAS 

NAMELIST  /NAMEUF/  JPUFSS,  JHUFSS,  G10F,  G20F,  GINFUF, 

G  Cl,  C2,  CINF,  PERMIC 

NAMELIST  /NAHETP/  JPTRSS,  JHTHSS,  GITR,  G2TR,  GINFTR, 

G  APITR,  BTR,  CTR,  DCXTR,  ADAXTR, 

G  BDAXTP,  CDAXTR 

NAMELIST  /NAHEGM/  JPGMSS,  JHGMSS,  GAMMA,  APIGM,  BPIGH, 


Figure  5.2.  Listing  for  RMODPR  for  reading  ultrafiltration  model  parameters 
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6  BGH,  CGH,  RATIO,  DCXGfl,  ADAXGN, 

5  BDAXGM,  CDAXGH,  CAGFL 
NAMELIST  /NAMRHC/  VHC,  ALPHC,  RDHC,  KRQHC,  JHRTHC, 

B  MCHTHC,  CAOCL2,  MWHOCL,  HWOCL,  HCRHO 

DATA  IDNIT/'  NONE'  ,  ' U  F*  ,  •  T R •  ,  •  GM •  ,  •  RO '  ,  •  UV  ,  •  HC •  / 

10  READ  (5,20)  ICARD,JCARD 
20  FOBHAT(Aa,T1,20A4) 

DO  30  1=1,8 

IP(ICARD  .EQ.  lONIT(I)) 

6  GO  TO  (10,  110,  50,  60,  70,  80,  90,  100)  , I 

NONE  ♦  OF  TR  GH  RO  OV  HC 
30  CONTINUE 

WRITE  (6,40)  JCAHD 

40  FORMAT  ('THE  FOLLOWING  CARD  IS  INVALID  AND  WILL  BE', 

6  '  IGNORED'/1X,20A4) 

GO  TO  10 

50  READ  (5,NAMEUF) 

GO  TO  10 

60  READ(5,NAMETR) 

GO  TO  10 

70  READ(5,MANBGM) 

GO  TO  10 

80  REA0(5,NAHER0) 

GO  TO  10 

90  READ(5,NAMEUV) 

GO  TO  10 

100  READ  (5,NAHEHC) 

GO  TO  10 
110  BBITE(6,120) 

120  FORMAT  ('1*HP  MODEL  PARAMETERS'/) 

WRITE(6,130) 

130  FORMAT  ('OHODEL  PARAMETERS  FOR  OLTRAFILTR ATION  MODULE') 
ICARD=0 

WRITE(6,140)  JPUFSS,  GIUF,  G2UP,  GINFUF,  JHUFSS,  Cl, 

6  C2,  CINF 

140  FORMAT ('0JP0FSS=», 13,'  G 1 0F= ' ,G 1 2 . 5 , '  G2UF=», 

6G12.5,'  GIMF0F=',G12.5/'  JW0FSS=' , 13 ,6X, '  C1=', 

6'  C1  =  ',G12.5,'  C2=',G12.5,'  CINP=' ,G12.5) 

WRITE  (6,  150) 

150  FORMAT ('OHODEL  PARAMETERS  FOR  TUBULAR  RO  MODULE') 

WRITE(6,  160)  JPTRSS,  GITR,  G2TR,  GINFTR, JWTRSS, ADAXTR, 
B  BDAXTR,  CDAXTR,  APITR,  BTR,  CTR,  DCXTR 

160  FORMAT  (*0JPTRSS= ',13, '  G1TR=' , Gl2. 5,  '  G2TR  =  ', 

6G12.5,'  GINFTR=',G12.5/'  JWTRSS= ' , 13, '  ADAXTE=', 

B  G12.5, '  BPAXTR  =  »,G12.5,  '  CDAXTR= ' ,G12 . 5/1 4X, 

6  'APITE=' ,G12.5, »  BTR=' ,G1 2 . 5, '  CTR=',G12,5/ 

B  14X,'DCXTR=',G12.5) 

WRITE(6,  170) 

170  FORMAT  ('OHODEL  PARAMETERS  FOR  GEL-MODEL') 

WRITE  (6,  180)  JPGMSS,  GAMMA,  APIGH,  BPIGM,  JWGMSS,  BGM, 
B  CGH,  RATIO,  DCXGH,  ADAXGH,  BDAXGM, 
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6  CDAXGH,  CAGBL 

180  FORHATC  0JPGMSS=«  ,13,  •  GAt1t1A  =  ' ,G12.5,  •  APIGM=', 

6  G12.5,*  BPIG(1  =  »,G12.5/'  JWGMSS=  •  ,  13 ,  •  BGH=', 

B  G12.5,*  CGn=*,G12. 5,'  RATIO=* ,G12. 5/14X, 

6  •DCXG!!  =  »,G12.5,'  A  DA  XG  H=  •  ,G  1 2.  5,  •  BDAXGM=  • ,  G12. 5/ 

6  12X,'  CDAXGM=*,G12.5,'  CAGEL= ' ,G12 . 5) 

WRITE(6,190) 

190  FORMAT ('OnODEL  PARAMETERS  FOR  REVERSE  OSMOSIS*) 

WBITB(6,200)  JHRITE,  TOLHX,  TOLMN,  AKA,  MCNT2,  AKC, 

6  ERE,  APIRO,  MCNT3,  BPIRO,  GAMARO,  BRO, 

8  NSTEPS,  CRO,  JHRITE,  NF,  ROKE 

200  FORHAT('OJHRITE=»,I3,*  TOLMX=' ,G12 .5, •  TOLMN=', 

6  G12.5,*  AKA=»,G12. 5/'  MCNT2=*,I3,»  AKC  =  »  , 

SG12.5,*  ERE=» ,G12.5, *  APIFO=' ,G12. 5/*  MCNT3=*, 

6  13,'  BPIP0=*,G12.5,»  GAMARO=*,G12.5, *  BRO=*, 

S  G12.5/*  NSTEPS=»,I3,»  CRO=» , G1 2. 5, •  NF=*, 

S  G12,5,*  ROKE=*,G12.5) 

HRITE(6,210) 

210  FORMAT (*OMODEL  PARAMETERS  FOR  THE  OV/OZOHATIOB  OHIT') 
WRITE (6, 220)  NHRITB,  KHENRY,  ECOZ,  ETOC,  KRATB, 

5  KDCOMP,  BOZD,  UVEFCT,  ALPBA,  EH,  QPRIME, 

B  RGAS 

220  FORMAT  (•0NHR1TE=*,  13,  •  KHENRY  =  *  ,  G  1 2.  5,  »  ECOZ=', 

6  G12.5, •  ET0C=*,G12.5/14X,»KRATE=*,G12.5, 

B  •  KDCOHP=» ,G12. 5,*  EOZD=* , G12. 5/14 X, » 0VBFCT= •  , 

B  G12.5,*  ALPHA=»,G12.5, •  EN=» , G1 2. 5/1 4X, 

B  «QPRIHE=«  ,G12.5,»  RGAS=*  ,G  12.5) 

WRITE  (6,230) 

230  FORMAT (* OHOOEL  PARAMETBRS  FOR  H YPOCHLORI NATIOH  ONIT*) 
WBITE(6,240)  JHRTHC,  VHC ,  ALPHC,  RDHC,  HCNTHC,  KEQHC, 

B  CAOCL2,  HHHOCL,  NWOCL,  HCRHO 

240  FORMAT  (»0JHBTHC=*,  13,  •  VHC=*  , G12.  5,  *  ALPHC=*, 

6  G12.5,*  RDHC=* ,G12.5/*  HCMTHC=» ,I 3, *  KEQHC=» , 

6  G12.5,*  CA0CL2=»,G12.5,*  HHHOCL=» ,G12.5/14X, 

e  *MWOCL=»,G12.5,  »  HCRHO=*,G12.5) 

RETORH 

EHD 
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Figure  5.4.  Output  for  reading  of  the  ultrafiltration  model  parameters 


5.2  Stream  Elements  (*SE) 

The  purpose  of  this  data  segment  is  to  read  the  engineering  units 
and  the  descriptions  of  all  elements  of  the  stream  vector. 

The  information  for  each  stream  element  is  punched  on  a  card  as 
follows: 


Quantity 

Columns 

Format 

Stream  element  number 

2-5 

14 

Engineering  units 

7-10 

A4 

Description 

16-35 

5A4 

The  cards  must  be  entered  in  ascending  order  of  the  stream  element 
numbers,  and  a  card  must  be  provided  for  each  stream  element. 


Figure  5.5  lists  the  *SE  segment  of  the  data  deck  for  defining 
three  stream  elements.  Figure  5.6  gives  the  corresponding  output. 


♦SE 

1  FI3/H  FLOW  RATE 

2  G/fl3  SOSPERDBD  SOLIDS 

3  G/N3  DISSOLVED  SOLIDS 

4  G/n3  TOT.  OPG  C&RBOR 

* 


Figure  5.5.  Listing  of  the  *SE  data  segment 
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STBEiH  ELEHEMT  DEFINITIONS 

ELEHENT  UNITS  DESCRIPTION 

1  H3/e  FLOW  RiTE 

2  G/H3  SUSPENDED  SOLIDS 

3  G/M3  DISSOLVED  SOLIDS 

4  G/H3  TOT.  ORG  CARBON 


Figure  5.6.  Output  from  the  data  in  Figure  5.5. 


5.3  Stream  Names  (*SN) 

The  simulator  provides  for  the  association  of  a  twenty-character 
descriptor  with  each  process  stream. 

The  descriptors  are  entered  in  the  *SN  data  segment.  The  format 
of  each  card  is  as  follows: 

Columns  Format 

2-5  14 

11-30  5A4 

The  stream  numbers  may  be  entered  in  any  order.  It  is  not  necessary 
that  a  descriptor  be  entered  for  each  process  stream. 

Figure  5.7  lists  the  *SN  data  segment  in  which  descriptions  are 
provided  for  ten  process  streams.  The  corresponding  output  is  given 
in  Figure  5.8. 

In  the  output  generated  from  other  sections  of  the  simulator, 
the  stream  descriptor  normally  accompanies  the  stream  number  whenever 
sufficient  space  is  available. 


1  LABORATORY  HASTF 

2  X-RAY  WASTT 

3  BAD  ACTOR  FLOW 

4  OPKRATIHG  ROOII  WASTE 

5  EQUILIZATICV  TK  DISC 

6  EQ  TK  POMP  DISCHARGE 

7  RECYCLE  FROM  OF 

8  DF  FEED  POMP  SUCTION 

9  OF  MODULE  FFED  FLOW 

10  OF  PERMEATE  PLOW 


Figure  5.7.  Listing  of  the  *SN  segment  of  the  data  deck 


♦  SN 


STBEAH  NAMES 


Figure  5. 


STREAM  DESCBIPTICN 

1  LABORATOBY  BASTE 

2  X-RAY  BASTE 

3  BAD  ACTOR  FLOB 

4  OPERATING  BOOH  BASTE 

5  EQOILIZATION  TK  DISC 

6  BQ  TK  POMP  DISCHARGE 

7  RECYCLE  FROM  OF 

8  OF  PEED  POMP  SOCTION 

9  OF  MODULE  FEED  FLOW 

10  OF  PERMEATE  FLOB 


.  Output  corresponding  to  the  data  in  Figure  5.7. 
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The  plant  configuration  Is  specified  by  the  information  contained 


in  the  input  data  deck. 

For  each  unit  in  the  plant,  two  data  cards  are  entered.  The  first 
card  specifies  the  unit  number,  equipment  type,  stream  connections, 
and  the  descriptor  for  that  item  of  equipment.  The  second  card 
specifies  the  physical  parameters  for  the  respective  item  of  equipment^ 

Table  5.2  gives  the  format  for  the  first  card.  The  format  for 
the  second  card  is  always  8F10.0.  The  significance  of  the  streams 
depends  upon  the  equipment  type,  and  is  summarized  in  Table  5.3. 

Table  5.4  summarizes  the  data  input  specifications  for  the  basic 
equipment  types  provided  by  the  simulator.  Note;  The  second  card  is 
always  required,  even  though  no  parameters  are  to  be  read  for  that 
respective  piece  of  equipment. 

In  the  stream  specifications,  a  positive  stream  number  designates 
an  input  stream;  a  negative  stream  number  designates  an  output  stream. 

To  Illustrate,  suppose  the  following  specifications  are  given  for 


a  unit  of 

3 

equipment : 

OT  1 

2 

-3 

BAD  ACTOR  WASTE  TANK 

500. 

1700. 

50. 

50. 

756. 

The  output  listing  generated  in  the  configuration  section  is  shown  in 
Figure  5.9.  Observe  that  descriptors  accompany  the  stream  numbers, 
and  that  engineering  units  accompany  the  parameters  in  the  output 
listing. 

For  the  plant  whose  flow  sheet  is  given  in  Figure  5.10,  Figure 
5.11  lists  the  configuration  data  segment.  Figure  5.12  provides  the 
output  for  this  configuration. 


*  some  pieces  of  equipment  require  two  parameter  cards,  refer  to  the 
specific  sections  in  Chapter  3. 
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Table  5.2 


Configuration  Data  Card  ill 


Quantity 

Columns 

Format 

Equipment  Number 

2-5 

14 

Equipment  Type 

9-10 

A2 

Stream  //I 

11-15 

15 

Stream  if 2 

16-20 

15 

Stream  if3 

21-25 

15 

Stream  if  it 

26-30 

15 

Stream  #5 

31-35 

15 

Descriptor 


41-60 


5A4 


Hypochlorlnatlon 


Table  5.4 

Definition  of  Equipment  Parameters 


Equipment 


Parameter 


UF,  TR,  GM 


Initial  volume  in  tank,  m^ 

3 

Initial  suspended  solids  concentration,  g/m 

3 

Initial  dissolved  solids  concentration,  g/m 

3 

Initial  TOC  concentration,  g/m 

3 

Initial  volume  in  tank,  m 

3 

Initial  suspended  solids  concentration,  g/m 

3 

Initial  dissolved  solids  concentration,  g/m 

3 

Initial  TOC  concentration,  g/m 

3 

Design  overflow,  m  /hr 
3 

Maximum  volume,  m 

3 

Pump  flow,  m  /hr 

3 

Flow  rate  of  fixed  stream,  m  /hr 
Time  of  first  pulse,  hr 
Time  duration  of  pulse,  hr 
Time  of  cycle,  hr 

3 

Flow  rate  during  pulse,  m  hr 

3 

Suspended  Solids  concentration,  g/m 

3 

Dissolved  solids  concentration,  g/m 

3 

TOC  concentration,  g/m 


Number  of  Tubes 
Temperature  ®K 

Pressure  drop  across  membrane  at  inlet 
Pressure  drop  down  tube,  atm 
Tube  diameter,  m 
Tube  Length,  m 

Pressure  drop  across  the  membrane,  atm 

Temperature  of  feed,  ®K 

Length  of  fibers,  m 

Outer  radius  of  fiber  bundle,  m 

Inner  radius  of  fiber  bundle,  m 

Fiber  diameter,  m 


w 


O' V*  o 


Table  5.4 
(continued) 


Equipment 

RO 

UV 


HC 


Parameter 

6 

1 


3 

4 

5 

6 

7 

8 

9 

10 
11 
12 
1 
2 
3 


5 

6 

7 

8 


Quantity 

Fiber  diameter  3,  m 

Initial  suspended  solids  concentration, 

g/m^ 

Initial  dissolved  solids  concentration, 

g/m^ 

Initial  TOC  concentration,  g/m^ 

Inlet  gas  phase  ozone  to  air  mass  ratio 
Volumetric  gas  flow  rate,  m  /hr 
Precontactor 
Number  fo  stages 

2 

Contactor  area,  m 

2 

Pre-contactor  area,  m 

Stage  height,  m 

Feed  temperature,  ®K 

Operating  Pressure,  atm 

pH  of  the  output 

Initial  Na(0  Cl) 2  in  the  HC  unit 

Initial  suspended  solids  concentration, 

gm 

Initial  dissolved  solids  concentration, 

g/m3 

3 

Initial  TOC  concentration,  g/m 

3 

Feed  rate  of  Ca  (0  Cl)2»  m  /hr 
3 

Volume,  m 

3 

Ca  (0  Cl) 2  feed  concentration,  g/m 
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UNIT  NO,  3  OVESFLOR  TANK  BAD  ACTOB  WASTE  TANK 

INPUT  STREAMS 

1  LABORATORY  WASTE 

2  X-RAY  WASTE 
OUTPUT  STREAMS 

3  DAD  ACTOR  FLOW 
INITIAL  CONDITIONS 

VOLUME  OF  TANK  .50000  CU.M 

SUSPENDED  SOLIDS  160.00  G/MB 

DISSOLVED  SOLIDS  1700.0  G/M3 

TOTAL  OEG  CARBON  263.73  G/MB 

DESIGN  PARAMETERS 

DESIGN  OVERFLOW  RATE  ,50000E-01  H3/H 
MAXIMUM  VOLUME  .75600  CU.M 


Figure  5.9.  Example  of  the  output  generated  in  the  configuration  section 


9. 

7. 

24. 

.189 

58.8  2151. 

2 

SO  -2 

X-RAY  WASTE  SOURCE 

9, 

a. 

24. 

.06615 

43.  1247. 

3 

OT  -3 

BAD  ACTOR  WASTE  TAME 

.5 

160. 

1700. 

263.  73 

.05  .756 

4 

SO  -4 

0.  R.  WASTE  SOURCE 

0. 

.25 

.75 

.5292 

2.  1788. 

5 

MT  3 

4  -5 

EOUALIZATION  TA9K 

2.  5 

160. 

1700. 

263.73 

6 

P  5 

-6 

EQ  TANK  POMP 

.270 

7 

IT  6 

7  -8 

OP  FEED  TANK 

.5 

160. 

1700. 

263.  73 

8 

P  8 

-9 

OF  FEED  POMP 

£•  9 

9 

OF  -10 

-7  9 

OF  NODDLE 

4. 

311.  1 

3.4 

2.04 

.0254  20.49 

9999 

SK  10 

* 


Figure  5.11.  Configuration  data  segment  for  the  plant  in  Figure  5.10. 


♦C  PLANT  CONFIGORATION 


ONIT  NO.  1  STREAM  SOURCE  LAB  WASTE  SOURCE 

INPUT  STREAMS 
NONE 

OUTPUT  STREAMS 

1  LABORATORY  WASTE 

INITIAL  CONDITIONS 
NONE 

DESIGN  PARAMETERS 


TIME  OF  FIRST  PULSE 

9.0000 

HR 

PULSE  DURATION 

7.0000 

HR 

PULSE  CYCLE  TIME 

24.000 

HR 

PULSE  FLOH  RATE 

.  18900 

M3/H 

SUSPENDED  SOLIDS 

58.800 

G/H3 

DISSOLVED  SOLIDS 

2151.0 

G/H3 

TOTAL  ORG  CARBON 

476.00 

G/H3 

OMIT  MO.  2  STREAM  SOURCE  X-RAY  HASTE  SOURCE 

IMPOT  STREAMS 
MOMS 

OUTPUT  STREAMS 

2  X-RAY  HASTE 

IMITIAL  CONDITIONS 
NONE 

DESIGN  PARAMETERS 

TIME  OP  FIRST  PULSE  9.0000  HR 

PULSE  DURATION  6.0000  HR 

PULSE  CYCLE  TINE  24.000  HR 

PULSE  FLOH  HATE  .66150E-01  M3/H 

SUSPENDED  SOLIDS  4  3.000  G/M3 

DISSOLYED  SOLIDS  1247.0  G/H3 

TOTAL  ORG  CARBON  126.00  G/M3 


UNIT  MO.  3  OYEBFLOH  TANK  BAD  ACTOR  HASTE  TANK 

INPUT  STREAMS 

1  LABORATORY  HASTE 

2  X-RAY  HASTE 
OUTPUT  STREAMS 

3  BAD  ACTOR  FLOH 
INITIAL  CONDITIONS 

VOLUME  OF  TANK  .50000  CU.M 

SUSPENDED  SOLIDS  160.00  G/N3 

DISSOLVED  SOLIDS  1700.0  G/N3 

TOTAL  ORG  CARBON  263.73  G/M3 

DESIGN  PARAMETERS 

M1I«I  OfllFMV  lAZI  .M000B>01  Bi/U 
■uxmi  fOMf  .75«0«  Cf.l 


Figure  5.12.  Configuration  output  for  the  data  In  Figure  5.11 


STREAM  SODECE 


0.  R.  WASTE  SOfJBCE 


0  NIT 


NO.  4 
INPUT  STREAMS 
NONE 

OUTPUT  STREAMS 

4  OPERATING  ROOM 

IllTXAL  COVITIOIS 

■Oil 

DBSIOIf  FABAlfBTBBS 


HASTE 


TUB  dF  FIBSt  POLS! 

.0 

■1 

PULSE  DURATION 

.25000 

HR 

PULSE  CYCLE  TIME 

.75000 

HR 

PULSE  FLOW  RATE 

.52920 

H3/H 

SUSPENDED  SOLIDS 

2.0000 

G/M3 

DISSOLVED  SOLIDS 

1788.0 

G/H3 

TOTAL  ORG  CARBON 

252.00 

G/M3 

UNIT 


NO. 

INPUT 


OUTPUT 


STREA MS 

3 

4 

STREAMS 

5 


NIXED  TANK 

BAD  ACTOR  FLOW 
OPERATING  BOOM  HASTE 


EQUILIZATION 


DISC 


INITIAL  CONDITIONS 


DESIGN  PARAMETERS 
NONE 


UNIT  NO. 

INPUT 


NO.  6  PUMP 

INPUT  STREAMS 

5  EQUILIZATION  TK  DISC 
OUTPUT  STREAMS 

6  EQ  TK  PUMP  DISCHARGE 
INITIAL  CONDITIONS 

NONE 

DESIGN  PARAMETERS 

POMP  FLOW  RATE  .  27000 


UNIT  NO. 


MIXED  TANK 

INPUT  STREAMS 

6  EQ  TK  POMP  DISCHARGE 

7  RECYCLE  FROM  UF 
OUTPUT  STREAMS 

8  OF  FEED  PUMP  SUCTION 
INITIAL  COHDITIOMS 


MSICI  »MMRIBS 
Mil 


Figure  5.12.  (continued) 
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EQUALIZATION  TANK 


VOLUME  OF 

TANK 

2.5000 

CU.M 

SUSPENDED 

SOLIDS 

160.00 

G/M3 

DISSOLVED 

SOLIDS 

1700.  0 

G/M3 

TOTAL  ORG 

CARBON 

263.73 

G/M3 

EQ  TANK  PUMP 


H3/H 


OF  FEED  TANK 


VOLUME  OF 

TANK 

2.5000 

CU.M 

SUSPENDED 

SOLIDS 

160.00 

G/H3 

DISSOLVED 

SOLIDS 

1700.0 

G/M3 

wm.  OM 

CABBOB 

2A3.73 

€/H3 

we 


PUMP 


Uf  FEED  POMP 


ami  NO.  8 

INPUT  STFEAHS 

8  OF  FEED  PUHP  SUCTION 
OOTPOT  STKEAMS 

9  UF  MODULE  FEED  FLOW 
INITIAL  CONDITIONS 

NONE 

DESIGN  PARAMETERS 

t«W  FLO!  lATI  2.0000  II3/H 


MtT  M.  f  ■LflOfZ&nAfXOI  OF  ROMLI 

lOFOF  STREAMS 

9  OF  MODULE  FEED  FLOW 

OUTPUT  STREAMS 

10  UF  PERMEATE  FLOW 

7  RECYCLE  FROM  UF 

INITIAL  CONDITIONS 
NONE 

DESIGN  PARAMETERS 

NUMBER  OF  TUBES 
FEED  TEMPERATURE 
INLET  DELTA  P 
DELTA  P  DOWN  TUBE 
TUBE  DIAMETER 
TUBE  LENGTH 


4.0000 

311.10  DECK 

3.4000  ATM 

1.3600  ATM 

-25400B-01  M 
20.490  M 


UNIT  NO.  9999  STREAM  SINK 

INPUT  STREAMS 

10  OF  PERMEATE  FLOW 

OOTPOT  STREAMS 
NONE 

INITIAL  CONDITIONS 
NONE 

DESIGN  PARAMETERS 

MM 


Figure  5.12.  (continued) 
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Upon  completion  of  the  entry  of  the  plant  configuration,  a  check 
is  made  to  see  that  for  each  stream 

a)  one  and  only  one  source  is  specified,  and 

b)  one  and  only  one  destination  is  specified. 

When  a  duplicate  source  definition  or  a  duplicate  destination  defini¬ 
tion  is  encountered,  messages  are  generated  in  the  configuration  output 
Figure  5.13  gives  the  stream  summary  printed  after  all  units  have  been 
specified. 

If  any  errors  are  detected  in  either  the  configuration  or  in  the 
parameters  specified,  the  run  is  terminated.  The  errors  in  the  con¬ 
figuration  section  should  be  corrected  and  the  run  repeated. 


STRE&a  SUHNifiY 

STREAM 

SOURCE 

OESTIMATIOM 

1 

1 

3 

2 

2 

3 

3 

3 

5 

4 

4 

5 

5 

5 

6 

6 

6 

7 

7 

9 

7 

8 

7 

8 

9 

8 

9 

10 

9 

9999 

Figure  5.13.  Stream  summary  generated  for  the  data  In  Figure  5.11. 


The  simulator  will  generate  a  tabular  listing  of  up  to  ten  process 
variables  as  a  function  of  time.  The  output  may  be  specified  to  be 
either  of  the  following: 

1.  Any  element  of  any  stream,  or 

2.  Any  parameter  associated  with  any  unit  of  equipment. 

At  least  one  print  specification  must  be  made  if  an  off-line  storage 
specification  is  not  made  (See  Section  5.6). 

The  specifications  are  entered,  one  per  data  card,  as  follows: 

Col.  2-5:  stream  number  or  unit  number,  with  the  latter 
being  entered  as  a  negative  number. 

Col.  6-10:  element  number  or  parameter  number. 

Figure  5.14  lists  a  typical  print  specification  segment  of  the  input 
data  deck.  Figure  5.15  gives  the  output  of  the  specification  data. 
Observe  that  descriptors  accompany  all  stream  numbers,  element  numbers, 
equipment  numbers,  and  parameter  numbers.  Figure  5.16  gives  the  tabu¬ 
lar  output  generated  during  the  execution  of  the  simulation. 


*PB 


PaiNT  SPECIFIC AT ions 


PRINT  IKIEEVAL  IS  .40000  HRS 


- STR  EA  N  9 

ELSHEMT  2 

- STREAM  9 

ELEMENT  3 

- STREAM  9 

ELEMENT  4 

- STREAM  10 

ELEMENT  1 

- STREAM  10 

element  2 

- STREAM  10 

ELEMENT  3 

♦♦♦♦♦ONIT  7 

PARAMETER  1 

- STREAM  5 

ELEMENT  2 

- STREAM  5 

ELEMENT  3 

♦  ♦♦♦♦ONIT  5 

PARAMETER  1 


OP  NOODLE  FEED  FLOP 
SDSPENDED  SOLIDS 
OF  NODDLE  FEED  FLOW 
DISSOLVED  SOLIDS 
OP  MODOLE  FEED  FLOW 
TOT.  ORG  CARBON 
DP  PERMEATE  FLOW 
FLOW  BATE 
DP  PERMEATE  FLOW 
SDSPENDED  SOLIDS 
OP  PERMEATE  FLOW 
DISSOLVED  SOLIDS 
OF  FEED  TANK 
VOLONE  OF  TANK 
BQOILIZATION  TK  DISC 
SUSPENDED  SOLIDS 
EQOILIZATICN  TK  DISC 
DISSOLVED  SOLIDS 
EQUALIZATION  TANK 
VOLUME  OF  TANK 


Figure  5.15.  Output  of  the  print  specification  data. 
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ig 


.0 

.400 

.800 

1.20 

1.60 

2.00 

2.40 
2.80 

3.20 

3.60 
4.00 

4.40 

4.80 

5.20 

5.60 

6.00 

6.40 

6.80 

7.20 

7.60 

8.00 

8.40 
8.80 

9.20 

9.60 
10.0 
10.  4 
10.8 
11.2 


STEM  9 

HE  ELE.  2 

3TBH  9 

ELE.  3 

SIFH  9 

ELE.  4 

STBS  10  S 

ELE.  1  E 

160. 

.  170E+04 

264. 

1.27 

194. 

.  170E4-04 

294. 

1.06 

232. 

.  170E+04 

332. 

.902 

275. 

. 170E+04 

376. 

.788 

321. 

.170E+04 

426. 

.700 

372. 

. 171E*04 

481  . 

.629 

427. 

. 171E+04 

542. 

.572 

486. 

.  171 E+04 

606. 

.524 

549. 

. 171E*04 

675. 

.483 

613. 

. 171E+04 

745. 

.448 

679. 

. 171E+04 

816. 

.418 

745. 

.171E+04 

887. 

.  392 

809. 

. 171E+04 

955. 

.369 

869. 

.172 E+04 

. 102E+04 

.348 

925. 

. 172E+04 

.  108E+04 

.330 

974. 

. 172E+04 

.112E+04 

.313 
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.  105E  +  04 
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.  285 
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. 122E+04 

.  272 
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.261 
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.  109E+04 

.  190 
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.174E+04 

. 106E+04 

.  184 
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.175E+04 
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.  179 

854. 

. 175E+04 

.  100E+04 

.  174 

824. 

.1758+04 
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.  169 

796. 

. 175E+04 

954. 

.  165 
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.176E+04 

930. 

.  161 

741. 

. 176E+04 
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.  156 

715. 

.  176E+04 
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.  153 
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. 177E+04 
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.  149 
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.146 

644. 

. 178E+04 
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.  142 

623. 

.178E+04 

817. 

.  139 
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. 178E+04 

801  . 

.  136 
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.178E+04 

786. 

.133 

563. 

. 179E+04 
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.130 

545. 

.  179E+04 

757. 

.  128 
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.179E+04 

744. 

.125 
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. 179E+04 
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496. 

.  179E+04 

719. 

.  120 

482. 

.179E+04 

707. 

.118 

M7. 

69%. 

.116 

•S«. 

••5. 

.116 

Figure  5.16.  Tabular 

output  generated  during  the 

simulation 

ce 


STEM  10 

UNIT 

7 

STRH 

5 
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PAR. 
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ELE. 
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.170E+04 
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160. 

.  170E^04 
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. 170E+04 

2.  15 
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.  170E«-04 

2.54 

. 170E+04 
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. 170E+04 

2.48 

. 170E+04 
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144. 
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1.44 
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-  17  lE+04 
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1.28 
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1.  15 
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2.44 
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1.04 
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2.41 

. 171E+04 

.947 
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.  171E«-04 

2.43 

. 171E+04 

.869 
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2.36 

.171E+04 

.804 

117. 

. 172E+04 

2.41 

.  171B*04 

.750 

118. 
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.706 
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10b. 
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.622 
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2.23 
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.173E+04 

2.27 

. 172E*04 

-599 

101. 

. 173E+04 

2.21 

. 172E+04 

.595 

96.7 

.  173E+04 

2.23 

. 172E+04 

.597 

95.0 

.173B*04 

2.  19 

. 172E+04 

.602 

92.4 

, 174B*04 

2.18 

.173E+04 

.612 

89-7 
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2.17 
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2.14 

. 173E+04 
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1.96 

.  174E+04 

-877 

64.5 

.176E+04 

2.00 
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.  175E+04 

1-00 

58.6 
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2.16 

-176E+04 

1.04 
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2.23 

. 176E+04 

1-09 

54.7 

. 180E+04 

2.30 

.  177E*04 

1.14 
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.  180E*04 

2.35 

. 177B^04 

1-19 
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2.45 

.177E+04 
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Figure  5.16.  (continued) 


The  simulator  will  generate  plots  of  up  to  ten  process  variables 
as  a  function  of  time.  The  output  may  be  specified  to  be  either  of 
the  following: 

1.  Any  element  of  any  stream,  or 

2.  Any  parameter  associated  with  any  unit  of  equipment 

If  no  plots  are  to  be  generated,  the  entire  plot  specification  data 
segment  should  be  omitted. 

The  first  data  card  in  the  plot  specification  segment  contains 
the  time  duration  (in  hours)  for  the  plot  in  columns  1-10  (format  is 
FlO.O).  The  following  cards  contain  the  specifications  entered  one 
per  card,  as  follows: 

Col.  2-5:  stream  number  or  equipment  number,  with  the  latter 
being  entered  as  a  negative  number 

Col.  6-10;  element  number  or  parameter  nximber 
Figure  5.17  lists  a  typical  plot  specification  segment  of  the  input 
data  deck.  Figure  5.18  gives  the  output  of  the  specification  data. 

The  plots  themselves  will  be  presented  in  a  later  section. 

The  plots  are  not  generated  as  the  simulation  is  being  executed, 
but  Instead  the  values  are  stored  in  arrays  for  plotting  upon  completion 


of  the  run. 


*PL 


PLOT  TAB  TABLES 


PLOT  OORATIOH  20.00  HRS 


♦  ♦♦♦♦OUT  5 

PARAMETER  1 

- STREAM  9 

ELEMENT  2 

- STREAM  9 

ELEMENT  3 

- STREAM  10 

ELEMENT  1 

♦♦♦♦♦UNIT  7 

PARAMETER  1 


EQUALIZATION  TANK 
TOLOHE  OF  TANK 
OF  MODULE  FEED  FLOH 
SUSPENDED  SOLIDS 
UF  MODULE  FEED  FLON 
DISSOLTED  SOLIDS 
UF  PERMEATE  FLON 
FLOH  SATE 
OF  FEED  TANK 
TOLOHE  OF  TANK 


Figure  5.18.  Output  of  the  plot  specification  data. 
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5.7  Run  Specifications  (*RUN) 

This  section  is  used  to  specify  to  the  simulator  the  total  run 
time  and  the  integration  step  size  to  use.  These  values  are  entered 
on  a  single  card  with  FORMAT  (2F10.0).  Figure  5.19  lists  a  typical 
run  specification  segment  of  the  data  deck.  Figure  5.20  gives  the 
output  generated  by  the  *RUN  section. 


v'V.V.V  V  ’ 


n*  V 


•HUH  BOM  TIHE  PAHAHETEBS 

TOTAL  TIHE  FOB  BON  20.00  BBS 

IHTE6BATI0N  STEP  SIZE  .1000E-02  UBS 


Figure  5.20.  Output  from  run  control  section. 
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Upon  completion  of  the  simulation,  the  simulator  prints  a  material 
balance  showing 

1.  Initial  inventory 

2.  Amount  input  (from  sources) 

3.  Final  Inventory 

4.  Amount  output  (to  sink) 

A  typical  material  balance  output  is  given  in  Figure  5.19.  Due  to 
round-off  errors,  the  material  balance  does  not  generally  close  exactly 
(except  for  plants  with  small  configurations).  However,  large  errors 
would  indicate  a  problem  somewhere  in  the  coding. 
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♦♦♦♦♦MiTBEIAL  BALANCE***** 


VOLUNB 

SOSPENOEO  SOLIDS 
DISSOLVED  SOLIDS 
TOTAL  ORGANIC  CARBON 


INITIAL 

INVENTORY 

5.50 

880. 

.935E+04 
. 145E+04 


AMOUNT 
INPUT 
5.  42 
108. 

.990E+04 
. 160E+04 


TOTAL 

IN 

10.9 

988. 

.192E+05 

.305E+04 


FINAL 

INYEHTOfiY 

4.85 

971. 

.877E+04 

.218E*04 


AHOUHT 

OUTPUT 

6.02 

.0 

. 104E*05 
832. 


TOTAL 

OUT 

10.9 

971. 

.191E+05 

.3028*04 


DIFFERENCE 

.480E-01 

16.4 

132. 

31.7 


Figure  5.19.  Simulator  Output  of  Material  Balance  Calculations. 
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5.8  Plot  Control  (*PC) 

As  indicated  in  an  earlier  section,  a  maximum  of  ten  variables 
can  be  plotted.  The  simulator  permits  the  output  to  be  one  plot  con 
talnlng  all  ten  variables,  to  be  ten  plots  containing  one  variable 
each,  or  to  be  any  combination  thereof. 

For  each  variable  to  be  plotted,  a  data  card  must  be  entered 
containing  the  following  information: 


Quantity  Colimins 

Format 

Plot  Character 

1 

A1 

Zero-coordinate 

6-15 

FIO.O 

Maximum-coordinate 

16-25 

FIO.O 

The  plot  grid  is  40  rows  by  100  columns. 

The  existence  of  a  blank  card  in  the  data  deck  indicates  to  the 
simulator  that  a  plot  is  to  be  generated  containing  the  variables  for 
which  the  plot  parameters  have  been  given.  To  illustrate,  a  typical 
plot  control  data  segment  is  illustrated  in  Figure  5-22.  A  total  of 
four  plots  will  be  generated.  For  all  plots  except  the  second,  a 
single  variable  will  be  plotted.  One  the  second  plot,  two  variables 
will  be  plotted.  When  more  than  one  variable  is  to  be  plotted,  the 
y-coordinates  are  always  that  of  the  first  variable  for  that  respective 
plot.  Figure  5-23  Illustrate  the  second  plot  generated  from  the  data 
in  Figure  5-22. 


♦PC 


L 

2000. 

2800. 

S 

5. 

25. 

D 

2000. 

10000 

P 

0. 

400. 

L 

200. 

1400. 
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Figure  5.22.  Typical  plot  control  segment  of  the  Input  data  deck. 
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This  section  allows  for  the  storage  of  the  values  of  up  to  50 
process  variables,  which  may  be  retrieved  for  printing  and/or 
plotting  at  a  latter  date  (see  section  5.11).  The  values  are 
written  to  FORTRAN  logical  unit  number  8,  which  should  be  connected 
to  a  sequential  dataset  with  a  logical  record  length  of  one  byte. 

The  first  data  card  must  be  a  unique  message  that  uniquely 
identifies  the  particular  run.  The  next  data  card  is  a  flag  that  tells 
the  simulator  where  on  the  dataset  to  store  the  values  of  the  run. 

There  are  two  choices;  FORMAT  (12): 

1)  -1  tells  the  simulator  to  start  at  the  very  beginning  of  the 
dataset  (this  is  required  if  the  dataset  has  never  been 
used  by  the  simulator) 

2)  +1  tells  the  simulator  to  start  at  the  end  of  the  last  set 
of  values  on  the  dataset  (in  valid  for  a  new  dataset) 

The  third  card  is  the  save  interval,  i.e.,  the  time  interval  between 
saves. 

After  the  third  card,  the  process  variables  to  be  saved  are 
specified,  one  per  card,  just  as  in  the  print  segment.  See  section  5.5 
for  what  variables  may  be  saved,  and  the  format  of  each  data  card. 
Figure  5.24  lists  a  typical  off-line  specification  segment  of  the  input 
data  deck.  Figure  5.25  gives  the  output  fo  the  off-line  segment. 

Note  that  this  segment  must  be  specified  after  the  configuration 
section,  and  before  the  run  section. 


*0P 

-1 

RUN  NUHBEB  ABC123 
.4 

9  2 

9  3 

9  4 

10  1 

10  2 

10  3 

-7  1 

5  2 

5  3 

-5  1 
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Figure  3.25. 


Simulator  output  for  the  data  given 


In  Figure  5.24. 


5.10  Old  Value  Retrieval  (*0L) 

This  segment  Indicates  to  the  simulator  that  no  simulation  is  to 
be  performed,  rather,  values  are  to  be  read  from  a  dataset  on  which 
values  of  a  previous  run  have  been  stored  by  use  of  the  off-line 
storage  feature  (see  section  5.10).  The  dataset  must  be  connected 
to  FORTRAN  logical  unit  number  8. 

The  only  card  in  this  section  must  contain  the  identification 
message  of  the  data  to  be  retrieved.  This  message  must  be  identical 
to  the  message  used  in  the  off-line  storage  run.  Figure  5.26  gives 
the  corresponding  *0L  message  for  the  *0F  message  of  Figure  5.24. 

Figure  5.27  gives  the  corresponding  output. 

Note  that  *0L  and  *RUN  are  mutually  exclusive.  Also,  the  *SE, 

*SN,  and  *C  sections  must  be  specified  again,  exactly  as  in  the  original 


simulation  run. 


Bfl  IWBBI  &BC123 


Figure  5.26.  Sample  data  to  retrieve  the  values 
saved  by  the  data  in  Figure  5.24. 
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♦OL  OLD  VALUES  SPECIFICATIONS 

PUN  NOHBEfi  ABC123 


Figure  5.27. 


Simulator  output  :or  the  *0L  data 
given  In  Figure  5.26. 


>.V,S 


n  n  n  n 


SUBROUTINE  HPE 
HPE  SIMULATOR 

THIS  IS  THE  MAIN  ROUTINE  FOR  THE  SIMULATION  PACKAGE 

COMMON  /LOOK/  ISH 

COHHGM  /MATDIS/  MATCAL 

COMMON  STREAM  (4,  100)  ,  ICONFG  (8,  100)  ,  PAR  (500),  NPAE, 

6  NCALL,  lUNIT,  NFATEfi,  NS,  NEQ,  DESC(5) 

COMMON  /CTIME/  TIME,  FTIME,  DT 

COMMON  /CPLOT/  NPLOT,  TPLOT,  KPLOT,  PLTDTA (  100, 1 0)  , 

&  JPSTRM(2,10) 

COMMON  /CPHINT/  IPfilNT,  NPBLE,  KPRINT(2,10) 

COMMON  /COFLN/  NPL,  LIST  {2, 50),  LABLE,  TOFLN, 

6  MBSSAG(20),  lEOF,  IHEAD 

COMMON  /MAIBAL/  BALNCE(4),  AHTIN{4),  AMTOUT(4) 
DIMENSION  BALN0(4),  TCTIN{4),  TOTOOT(4),  DIPF{4) 

C  NPAB  -  NUMBER  OF  PARAMETERS  FOR  UNIT  I 
C  (INDEX  INTO  ABBA7  PAR) 

C  NCALL  -  SUBROUTINE  CALCULATION  SELECTION 
C  >1  -  READ  PABAMETERS 

C  0  -  INITIALIZATION 

C  1  -  SIMULATE 

C  NPBLE  -  HUMBER  OF  PRINT  ELEMENTS 

C  NPLOT  -  HUMBER  OF  PLOT  ELEMENTS 
C  NOFLIH-  MUMBER  OF  OFF-LINE  ELEMENTS 
C  KPLOT  -  INDEX  (2)  INTO  ARRAY  PLTDTA 

C  STREAM  (4,100)  -  STREAM  fECTORS  (FLOH , SS, TDS, TOC) 

C  ICONFG(8, 100)  -  CONFIGURATION  ARRAY 
C  (UNIT*, TYPE  CODE, STBH1, ... ,STRH5, NPAB) 

C  PAR  (500)  -  PARAMETER  TECTOR 

C  KPRINT  -  STBEAH/ELBMENT  DESIGNATION  OF  PRINT  OUTPUTS 
C  JSCK(2,  100)  -  STREAM  CBECK  ARRAY 

C  JPSTRM(2,10)  -  STREAM/BLEMENT  DESIGNATION  OF  PLOT  OUTPUTS 
C  PLTCBO(2,10)  -  YO/YHAX  FOR  PLOT  OUTPUTS 
C  PLTDTA  (100,  10)  -  PLOT  DATA 
CALL  EBBSET  (208,0,-1,  1) 

DO  10  J=1,100 
DO  10  1=1,4 
10  STREAN(I, J)  =  0.0 
ISR=  0 
NFATEB=  0 

C  READ  CONFIGURATION  AND  PARAMETERS 
CALL  BDATA 
TIHE=  -DT 
DTPLOT=  .OMTPIOT 
XPRIHT=  0.0 
XOFLN=  0.0 
XPLOT=  0.0 

IF  (NPL  .LT.  0.)  GO  TO  60 
C  GET  INITIAL  INVENTORY 
MATCAL=  0 
NCALL=  -2 


DO  20  I0N1T=  1,  NEQ 
MP4R=  ICOMFG  {8,IUN1T) 

20  CALL  SOBCAL 
DO  30  1=1,4 
BALNO(I)=  BALBCE(I) 

30  £ALMCE(I)=  0. 

C  PEHFOBH  INITIALIZATION  CALCULATIONS 
NCALL=  0 

40  IF (NFL  .LT,  0.)  GO  TO  60 
DO  50  IONIT=1,NEQ 

NPAB=  ICONFG  (BflUNIT) 

50  CALL  SUBCAL 

IF(NFATEH  .  GT.  10)  STOP  45 
C  PEBFOBN  SinULATIGM 
NCAIL=  1 

60  TIME=  TIME  ♦  DT 
DTIHE=  TINE  ♦  .01*DT 
IF(NPL  .EQ.  0)  GO  TO  80 
IP(DT1HE  .LT.  lOFLN)  GO  TO  80 
XOFLN=  XOFLN  +  TOFLN 
IF(NEL  .GT.  0)  CALL  SAVEIT 
IF(HPL  .LT.  0)  CALL  GETIT 
80  IF(NPELE  .EQ.  0)  GO  TO  90 

IF(DTIHE  .LT.  XPHINT)  GO  TO  90 
XPBINT=  XPBINT  ♦  TPBIHT 
CALL  PBINT 

90  IF(NPLOT  .EQ.  0)  GO  TO  100 

IP(0TINB  .LT.  XPLOT)  GO  TO  100 
XPLOT*  XPLOT  ♦  DTPLOT 
CALL  PLOT2 

100  IF(DTIBE  .LT.  FTINE)  GO  TO  40 
IF(HPL  .LT.  0)  GO  TO  160 
1F(NPL  .HE.  0)  BBITE(8,110)  lEOF 
IF(NPL  .HE.  0)  BNDFILE  8 
110  FOBNAT(A4) 

C  GET  FINAL  IHVEHTOBT 
HATCAL=  1 
■CAIL=  -2 

DO  120  I0NIT=1,NBQ 

MPAS=  ICONFG  (8,I0BIT) 

120  CALL  SOBCAL 
VBITE  (6,130) 

130  FOHHATC * 1*****NATEBIAL  BALANCE***** V32X , *I NITIAL* ,7X, 
C  •ANOOMTI,6Z,  •TOTALSSX,  ’FINAL*  ,8X,  *  AMOUNT*  ,6X,* TOTAL* 
&  31X,*IHTENT0BY*,7X,  ’INPUT*  ,8X,*  IN*  ,5X, *  INVEHTOBI*  ,6X, 
6  *ODTPOT*,7X,*OOT*,4X, ’DIFFERENCE*) 

DO  140  1=1,4 

T0TIN(I)=  AaTIN(I)  *  BALNO(I) 

TOTOOT(I)=  AHTOUT(I)  *  BALRCE(I) 

140  DIFF(I)=  TOTIN(I)  -  TOTOOT(I) 

NBITE(6,  150)  (BALNO(I)  ,ANTIN  (I)  ,TOTIM  (I)  ,BALNCE  (I)  , 

6  AHTOOT  (I)  ,TOTOUT  (I)  ,  DIFF  (I)  ,  1=  1,  4) 

150  FORMAT  (6X,*70LUnE*,T29,7G12.3/6X, ’SUSPENDED  SOLIDS’, 

S  T29,7G12.3/6X, ’DISSOLVED  SOLIDS  * ,T29 ,7G1 2. 3/6X, 
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6  'TOTAL  OBGANIC  CA8BO N • , T29 ,7G 1 2 . 3) 
C  MAKE  PLOTS,  IF  NECE3SAPY 
160  IF(NPLOT  .Eg.  0)  STOP 
CALL  PLOT  3 
BETUBN 
END 
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i 


c 

c 

c 

c 

c 


BLOCK  DATA 
BEA1*8  HC1 

COIIilOH  /CTISE/  Tins,  PTIMB,  DT 

COMMON  /COFLH/  NPL,  LIS'I{2,50),  LABLE,  TOFLN, 

C  MESSAG(20),  lEOF,  IHEAD 

COMMON  /CPLOT/  NPLOT,  TPLOT,  KPLOT,  PLTDTA ( 100, 1 0)  , 

&  JPS1;BM<2,10) 

COMMON  /CPBINT/  IPBINl,  NPELE,  KPHINT(2,10) 

COMMON  /CBEAD/  IFIEST,  LAST,  ICARD(20) 

COMMON  /MATBAL/  BALNCB  (4)  ,  AHTIN(4),  AMTOUT(4) 

COMMON  /NAMES/  iaNI‘IS(12),  NNSTBM  (5 , 1 00)  , 

&  NMEQPT(5,  100)  ,  NMELE(5,  5),  ISDNIT(5), 

6  NNPAR(6,75),  IDNMPfi{150) 

COMMON  /UFPABH/  OFl  (2)  ,  I0P1  (3) 

COMMON  /OFFIl/  0F2(6) 

CGHMCH  /PABMOF/  UF3(5) 

COMMON  /TRPABM/  181(2),  ITR1(3) 

COMMON  /TBFII/  TR2(10) 

COMMON  /PABMTB/  TB3(5) 

COMMON  /GMPARM/  GMl(2),  IGM1  (3) 

COMMON  /GMPIl/  GN2(11) 

CONMCM  /PABMGM/  GM3(5) 

COMMON  /CHECK/  JSCK  (2,100) 

COMMON  /0FSAW1/  DFSA?B 
COMHCN  /PABH60/  BOI  (6) ,1B01 (2) 

COMMON  /HOFIt/  RO2(10) 

COMHCN  /SCPABH/  B03  (4)  ,IR03  (3) 

COMHCN  /PIDSA?/  PIDSF  (2) 

COMMON  /OfFIl/  OVHIO) 

COMMON  /OVPIRH/  U72 (6) ,  lOV 
COMMON  /STGSA7/  075(50) 

COMMON  /STAGES/  074(2) 

CCMNCN  /GASLAH/  BGAS 

COMMON  /HCPA6H/  HC1(5),  IHC1(2) 

COMMON  /HCSAV2/  HC2(3) 

DIMENSION  NNPB(6,11),  NNOF(6,8),  NM07(6,7),  NHRO(6,3) 
e  MHEZIB(6,1),  NHBC(6,3),  NNPlD(b,7), 

G  NHSN(6,4),  MHHM(6, 5),  MNBIN(6,  3) 

EQ0I7ALENCE  (NMPB  , NHPAR  ( 1 ,  1)  )  ,  (N HOF  ,  NHPAR  ( 1 , 1 2)  )  , 

G  (NH07,MHPAB(1,20)  )  ,  (NMBO,  NHPAR  (1  ,27)  )  , 

G  (MHEXTB,NNPAB(1,30)  )  ,  (NHHC,  NHPAR  ( 1 , 3 1)  )  , 

G  (NHPID,NNFAR  (1,34) )  , (NHSN, NHPAR ( 1 , 4 1) ) , 

G  (NHHM,NHPAB  (1,45)  )  ,  (NNBIN,  NHPAR  (1 ,50) ) 

DATA  STATEMENTS  FOB  OLTBAFILIRAT ION 
DATA  lOFl  /3*0/,  ITBl/3*0/ 

DATA  OF2  /71251.,  .40141,  .14674E-3,  .10537,  1.1185 
G1  G2  G1NFC1  C2 

G  0.4b156E-2/ 

CINP 

DATA  OF3  /O.,  . 003274,  1. E6,  0.,  0./ 

TEMP  7ISC  DBNB  DPZERO  PDBOP 
DATA  STATEMENTS  FOR  TOBOLAB  BO 

DATA  TB2  /1.91E4,  0.57895,  1.44E4,  1.0391E-8, 


on  n  n  o  n  no  no 


GAN1  GAN2  GAMINF  API 

6  3.9526B-5,  4.2112E-3,  4.8E-2,  3.0254E-7, 

B  C  DCX  ADAX 

6  4.854E-06,  0.61405/,  IG«l/3*0/ 

BDAX  CDAX 

DATA  TB3  /O.,  .003274,  1.E6,  0.,  0./ 

TEHE  Vise  DENB  DPZERO  PDROP 

DATA  STATEHENTS  FOR  GEL  MODEL 
DATA  GH2  /11*0.0/ 

DATA  GM3  /O, ,  .003274,  1. E6,  0.,  0./ 

TEMP  Vise  DENB  DPZERO  PDROP 

DATA  STATEMENTS  FOR  FIBER  REVERSE  OSMOSIS 
DATA  R01  /O.,  0.,  0.,  0.,  .05,  .01/ 

I  BO  RI  DP  TOLMX  TOLHN 
DATA  IROI  /O,  10/,  IH03/  17,  22,  0/ 

NHHITE  NSTEPS  HCNT2  MCNT3  JHRITE 
DATA  HO2/0. 02117,  5.7434E-4,  3.791,  2.526E-7,  6.81E-5, 
AKA  AKe  ERE  API  6PI 

6  18.35,  2.488E-6,  1.351E-6,  3.694E7,  .6295/ 

GAMMA  B  C  NF  RATIO 

DATA  R03  /O.,  .003274,  0.,  1.E6/ 

TEMP  Vise  DELP  RHOB 
DATA  STATEMENTS  FOR  UV/OZONATION 

DATA  UV1  /2.856E+6,  1.0,  4.125,  93  1.24,  0.,  1.0, 
KHENRY  BC02  ETOC  KRATE  KDCOHP  EOZD 
6  0.,  1.6667B-4,  0.0,  16830./,  IOV/0/ 

UVEFCT  RATIO  EN  QPRIHB  NHRITE 

DATA  UV2  /  0.,  0.,  0.,  55.556,  0.,  0./ 

CAREA  PABEA  H  RHOB  PRESS  TEMP 

DATA  RGAS  /.8205/ 

DATA  STATEMENTS  FOB  BYPOCHLOBI NATION 

DATA  HC1  /O.CO,  O.DO,  O.DO,  .27D-7,  O.DO/ 

VOL  ALPHA  RE  KEQ  CAOCL2 

DATA  He2  /52500.0,  52500.0,  1.E6/,  IHC1/0,  30/ 

MHBOCL  MNOCL  BHO  JNBITB  MCNT 

DATA  NPL  /O/,  TOFLN/0./,  IEOF/»  ♦EOF'/r  IHEAD/*  HEAD •  / 
DATA  MPLOT  /O/,  TPBINT/0./,  NPELE/0/,  lAST/**'/ 

BATA  MHSTBH/500**  •/•  JSCK/200*0/,  KPLOT/0/ 

DATA  BALNCE, AHTIN, A8TOOT/4*0.0,  4*0.0,  4*0.0/ 

DATA  IOHITS/*HB»,  ‘Ma/H*,  •G/H3*,  'CD.M',  'H',  »H2*, 

S  »G/H3»,  •H2/H',  'DEGK',  *ATH',  '»,*'/ 


DATA  IDNMPH/I,  4,  7, 


6,  30, 


6,  7, 

1#  10, 


1.  11, 


5,  7, 


6,  30,  8,  9, 


3,  4,  5,  6,  30, 


6 

8, 

6, 

27, 

13, 

17, 

28, 

29, 

18, 

DV 

& 

9, 

12, 

5, 

6, 

30, 

20, 

21, 

22, 

23, 

24,  25 

& 

26, 

13, 

27, 

HC 

e 

10, 

8, 

31, 

3  2, 

5. 

6, 

30, 

33, 

7, 

19, 

C  SK 


& 

11,  0, 

C 

CN 

e 

12,  7, 

34,  35,  36,  37, 

38,  39, 

40, 

c 

SN 

S 

13,  4, 

41,  42,  43,  44, 

c 

NK 

6 

14,  5, 

45,  46,  47,  48, 

49, 

c 

RC 

6 

15,  5, 

34,  35,  52,  40, 

c 

flC 

& 

16,  8, 

34,  35,  50,  51, 

47,  48, 

49,  40 

0 

c 

TH 

& 

17,  6, 

12,  13,  14,  15, 

16,  17, 

c 

GH 

& 

18,  6, 

12,  13,  14,  15, 

16,  17, 

6 

23*0/ 

c 

1 

D&T& 

NNPR 

/•TIME*, 

*  OF  ',  'FIBS', 

*T  PO* , 

•LSE 

t 

1 

& 

•PULS*, 

•E  DU*,  »RATI*, 

•ON  *, 

• 

1 

1 

& 

•PULS', 

•E  Cl*,  'CLE  •, 

•TIBE*, 

• 

1 

1 

6 

•PULS*, 

•E  FL',  'ON  B' , 

•ATE  *, 

1 

1 

2 

& 

•SUSP*, 

•ENDE*,  'D  SO', 

•LIDS', 

1 

» 

3 

6 

•DISS*, 

•OlVE*,  'D  SO*, 

•LIDS', 

f 

1 

3 

& 

•¥OL0*, 

•BE  0*  ,  'P  TA*  , 

'  HK  •  , 

1 

f 

4 

S 

•DESI*, 

•GM  O'  ,  'VEEF*  , 

•LOR  *, 

•RATE 

1 

2 

6 

•HAXI*, 

•BOB  ',  'VOLO*, 

•BE  *, 

t 

« 

4 

S 

•PUBP*, 

•  FLO*  ,  •«  RA* , 

•TE  •, 

I 

1 

2 

6 

•FIXE*, 

•D  FL* ,  'OH  R* , 

•ATE  ', 

• 

t 

2, 

c 

12 

DATA 

NHUF 

/•HOBB*, 

•EH  0*,  'P  TU', 

•BBS  ', 

1 

1 

11 

8 

•EIED*, 

•  TEB* ,  'PERA*, 

•TORE* , 

1 

« 

9 

8 

•IMLE', 

»T  DE*  ,  'LTA  • , 

•P  '  , 

1 

% 

10 

8 

•DELT», 

•A  P  *,  •DOWN', 

•  TOB*, 

•E 

f 

10 

8 

•TUBE*, 

•  DIA',  »BETE*, 

•R 

1 

« 

5 

8 

•TUBE* , 

•  LEN*,  'GTH  ', 

1  1 

« 

1 

t 

5 

8 

•FIBB», 

•R  DI*,  'ABET*, 

•ER  ', 

f 

1 

5 

8 

•CAOC* , 

•L2  P* ,  'BED  '  , 

•COMC  , 

• 

% 

3. 

c 

20 

DATA 

NHUV 

/•GAS  •, 

•OZON* ,  • E  CO*, 

•NC,  ', 

1 

• 

11 

8 

•GAS  •, 

•FlOll*,  *  RAT*, 

•E  *, 

f 

• 

2 

8 

•PREC*, 

•ORTA*,  *CTOH', 

f  I 

» 

• 

t 

11 

8 

•BUBB*, 

*ER  0* ,  *  F  ST*  , 

•AGES'  , 

1 

• 

11 

8 

•CO NT', 

•ACTO*,  *R  AR*, 

•EA  ', 

• 

f 

6 

8 

•PHB-*  , 

•COHT*,  *ACTO*, 

*R  AH*, 

•EA 

• 

6 

8 

•HEIG', 

*  BT  0* ,  *F  A  '  , 

•STAG' , 

•E 

1 

5/ 

C  27 


DATA 

NNRO 

/»OPER* , 

•  ATIN»  , 

•G  PB», 

• ESSU* , 

•RE 

',10, 

& 

•OOTE', 

*R  RA* , 

•DIUS ' , 

1  1 

9 

• 

5, 

& 

•INNE*, 

*  R  RA* , 

'  DIOS'  , 

%  f 

9 

ff 

',  5/ 

c 

30 

DATA 

NWEXTB/'TOTA', 

•L  OR*, 

•G  CA', 

•RBON 

t 

7/ 

c 

31 

DATA 

NflHC 

/•PH 

•  1 

t 

•  1 

0 

1  I 

9 

f 

',11, 

6 

•  FREE*, 

•  CHL*, 

•ORIN  ', 

•  E 

• 

’,12, 

S 

•CA  (0* , 

•CL)  2*  , 

'  FE  •  , 

•£D  R*, 

•ATE 

•r  2/ 

c 

34 

DATA 

NMPID 

/•SENS*, 

•OR  I*, 

*D  ', 

f  I 

0 

t 

Ml, 

& 

•MANI* , 

•PULA* , 

•TOR  ', 

•ID  •, 

• 

',11, 

& 

•SET  *, 

• POIN* , 

•  T  •  , 

1  t 

9 

1 

’,11, 

& 

•GAIN*, 

•  • 

0 

1  • 

0 

1  f 

0 

1 

',11, 

S 

•BESE*, 

•T  TI* , 

•ME  •  , 

•  t 

0 

1 

',  1, 

& 

•RATE* , 

•  TIM', 

•  E  •  , 

t  1 

0 

1 

',  1, 

6 

•MODE*, 

•  1 

0 

i  t 

0 

1  I 

9 

1 

’,11/ 

c 

41 

DATA 

MnSN 

/•UNIT*, 

•  OR  •  , 

•STRE*  , 

•Art  !•  , 

•D 

',11, 

& 

•ITEM*, 

•  OF  •, 

• INQD' , 

•IRY  •, 

t 

’,11, 

& 

•CORR* , 

•ENT  •, 

•READ', 

•IrtG  •, 

1 

Ml, 

S 

•TIME*, 

•  CON', 

•STAN* , 

•T  •, 

1 

1/ 

c 

45 

DATA 

NntlN 

/•UNIT*, 

•  ID  ', 

•  • 

0 

1  • 

f 

’,11, 

8 

•MANI*, 

•PULA' , 

•TED  ', 

•ITErt*, 

• 

’,11, 

8 

•CURB*, 

•  END  '  , 

• VALU' , 

•  E  •  , 

1 

Ml, 

8 

•UPPE*, 

•R  LI', 

•MIT  ', 

I  f 

t 

’,11, 

8 

•LOSE* , 

'R  LI', 

•MIT  ', 

1  t 

9 

t 

’,11/ 

c 

50 

DATA 

NHBIN 

/•LOS  *, 

•SET  *  , 

•POIN', 

•T  •  , 

1 

',11, 

8 

•HI  S*, 

•  ET  P  •  , 

•  01  NT  •  , 

1  1 

• 

',11, 

8 

•RATI*, 

•0  •  , 

t  1 

0 

f  f 

9 

• 

',11/ 

END 

2/2 
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n  n  o 


SOBROOTINE  BCATA 


THIS  SaBBOOTINE  BEADS  ALL  IMPOT  DATA 
LOGICAL  OFF/. FALSE./ 

COHMCH  /CBEAD/  IFIBST,  IASI,  ICAHD(20) 

COHHCN  /CTIHE/  TIME,  FTIME,  DT 
EQUIVALENCE  (ICABD 1 , ICARD  ( 1) ) 

DATA  IMP,  ISE,  ISM,  IC,  lOF,  lOL,  IPR,  IPL,  IRUN/ 

6  '♦HP',  '♦SE',  '♦SN',  '♦C,  '♦OF',  '♦OL', 

6  '♦PR',  '♦?!',  '♦RON'/ 

C  READ  FIRST  CARO.  SHOULD  BE  A  DATA  CONTROL  CARD 
CALL  RCARD 

C  FIRST  CARD  SHOULD  BE  ♦HP  OR  ♦SE 
1F(ICARD1  .EQ.  IMP)  GO  TO  20 
IF(ICAB01  .EQ.  ISE)  GO  TO  40 
WRITE  (6,10)  IMP,  ISE,  ICARD 
10  FORMAT  (' O^^^^^EXPECTING  «",A4,*"  OR  "»,A4, 

&  '",  FOUND  '/'  •",20A4,"") 

STOP 

C  FOUND  ♦HP,  BEAD  MODEL  PARAMETERS 
20  CALL  BHODPR 

C  RETURN  FROM  BHOOPB  OCCURS  ONLY  WHEN  A  DATA  CONTROL  CARD 
C  HAS  BEEN  ENCOUNTERED.  THE  NEXT  CARD  SHOULD  BE  ♦SE 
CALL  RCARD 

IP(ICAR01  .EQ.  ISE)  GO  TO  40 
NRITE(6,30)  ISE,  ICABD 

30  FORMATCO^^^^^EXPECTING  '",A4,'",  FOUND'/ 

S  '  «",20A4,"") 

STOP 

C  FOUND  ♦SE,  BEAD  SIBEAH  ELEMENT  DEFINITIONS 
40  CALL  RSTBHE 

C  BBTORN  FBOH  BSTRHE  OCCUBS  ONLY  WHEN  A  DATA  CONTROL  CARD 
C  HAS  BEEN  ENCOUNTERED.  TBE  NEXT  CARO  SHOULD  BE  ♦SN  OB  ♦C 
CALL  BCABD 

1F(ICAB01  .EQ.  ISN)  GO  TO  50 
IF(ICABD1  .EQ.  1C)  GO  TO  60 
WRITE  (6,10)  ISM,  IC,  ICABD 
STOP 

C  FOUND  ♦SN,  BEAD  DESCRIPTIONS  FOR  STBEAHS 
50  CALL  RSTBHN 

C  RETURN  FROM  RSTBHN  OCCUBS  ONLY  WHEN  A  DATA  CONTROL  CARD 
C  HAS  BEEN  ENCOUNTERED.  TBE  NEXT  CABO  SHOULD  BE  ♦C 
CALL  RCARD 

IFdCARDI  .EQ.  IC)  GO  TO  60 
WBITE(6,30)  IC,  ICARD 
STOP 

C  FOUND  ♦€,  READ  CONFIGURATION 
60  CALL  RC0NF6 

C  RETOBN  FBOH  RCONFG  IS  ONLY  WHEN  A  DATA  CONTROL  CARD  HAS 
C  BEEN  ENCOUNTERED.  NEXT  CARO  SHOULD  BE  ♦OF  OB  ♦PR 
CALL  BCABD 

IF(ICARD1  .EQ.  lOF)  GO  TO  70 


IF(ICABD1  .Eg.  IPR)  GO  TO  90 
SEITE(6,10)  lOF,  IPR,  ICAHDl 
STOP 

C  POUHD  ♦OF,  READ  OFF-LINE  PAPAtlETER  IIST 
70  CALL  OPLINE 
OFF=  .TRUE. 

C  RETURN  FROM  OPLINE  IS  ONLY  WHEN  A  DATA  CONTROL  CARD  HAS 
C  BEEN  ENCOUNTERED.  NEXT  CARD  SHOULD  BE  ♦PR,  ^PL,  OR  ♦RUN 
CALL  RCARD 

IP(ICARB1  .Eg.  IPR)  GO  TO  90 
IF(ICARD1  .Eg.  IPL)  GO  TO  100 
IF(ICARD1  .Eg.  IRON)  GO  TO  120 
BRITE(6,80)  IPR,  IPI,  IRON,  ICARD 
80  PORIAT  ('O^^^^^EXPECTING  •",A4,*",  "',A4,"*,  OR  • 

5  A4,"»,  POUND'/'  •",20A4,"") 

STOP 

C  FOUND  ♦PR,  HEAD  PRINT  SPECIFICATIONS 
90  CALL  RPBINT 

C  RETURN  FROIl  RPBINT  IS  ONLY  RHEN  A  DATA  CONTROL  CARD  HAS 
C  BEEN  ENCOUNTERED.  IT  SBOULD  BE  ♦?!,  ♦OL,  OB  ♦BUN 
CALL  RCARD 

IF{ICARD1  .Eg.  IPL)  GO  TO  100 
IF(ICARD1  .EQ.  lOL)  GOTO  110 
IF(ICABD1  .Eg.  IRON)  GO  TO  120 
NRITE(6,80)  IPI,  lOL,  IRON,  ICARD 
STOP 

C  POUND  ♦?!,  READ  PLOT  SPECIFICATIONS 
100  CALI  PLOT1 

C  RETURN  EBON  PLOI1  IS  ONLY  WHEN  A  DATA  CONTROL  CARD  HAS 
C  BEEN  ENCOUNTERED.  NEXT  CARD  SHOULD  BE  *01  OB  ♦BUN 
CALL  RCARD 

IF(ICABD1  .EQ.  lOL)  GO  TO  110 
IFdCABDI  .EQ.  IRON)  GO  TO  120 
RRITE(6,10)  lOI,  IRON,  ICARD 
STOP 

C  POUND  *01,  LOCATE  THE  OLD  VALUES 
110  CALL  OLDVAL 
GO  TO  150 

C  FOUND  *BUN,  READ  RUN  PABANETEBS 
120  BEAD(5,iaO)  PTINE,  DT 
130  FOBHAT  (2F10.0) 

IE  (OFF)  iRITE(8,140)  FTIHE,  DT 
140  FOBHAT  (A4) 

150  RBITE(6,160)  FTIHE,  DT 

160  FOBHAT  (' I^BUN  BON  TIHE  PABAHETERS*/ 

6  6X, 'TOTAL  TIHE  FOR  B0N',G12.4,»  HES'/6X, 

&  'INTEGBATION  STEP  SIZE*  ,  G12. 4,  '  HRS') 

CALL  BCABD 
RETURN 


SUBBOUTINE  BNCCFfi 


C 

C  BEAD  nODEL  PABANEIEES 
C 

REAL  MWHOCL,  HHOCL,  L,  HE,  NTPIDT,  KLA,  KHENRY,  KBATE, 
&  KDCOHP 

BEAL*8  VHC,  ALPHC,  SDHC,  KEQHC,  CAOCL2,  DTHC 
C  LABELED  COflBON  STATEHENIS  FOR  REVERSE-OSMOSIS  UNITS 

CCMMCN  /PARMBO/  L,  EO,  Rl,  DF,  TOLMX,  TOLMM,  KHRITE, 

6  NSTBPS 

COMMON  /aOFIT  /  AKA,  AKC,  ERE,  APIBO,  BPIBO,  GAHABO, 

6  BBC,  CBO,  NF,  ROKE 

COMMON  /EOPABM/  TEMP,  VISC,  DBLP,  RHOB,  MCMT2,  MCNT3, 

6  JHRITE 

C  LABELED  COMMON  STATEMENTS  FOR  OZONE  UNITS 

COMMON  /OTFIT/  KHENRY,  ECOZ,  ETOC,  KRATE,  KDCOHP, 

6  EOZD,  OVEFCT,  ALPHA,  EN,  UPRIMS 

COHHCN  /UVPABM/  CABEA,  PABEA,  OVB,  UVRHO,  UVPRBS, 

&  OVTEMP,  NHRITE 

COMMON  /GASLAH/  BGAS 

C  LABELED  COMMON  STATEMENTS  FOB  ULTR AFILTBATION  MODULE 

COMMON  /UFPABM/  PLENOF,  DTUBUF,  NTUF,  JPUFSS,  JIOFSS 
COMMON  /PAHHUP/  TEMPUF,  VISCUF,  DENBUF,  ZREOUF,  DBOPUF 
COMMON  /UFSAVV  HSTPUP 

COMMON  /UFFIT  /  GIUF,  G2DF,  GINFUF,  Cl,  C2,  CINF 
C  LABELED  COMMON  STATEMENTS  FOB  TUBULAR  B-0  MODULE 

COMMON  /TBPABM/  PLENTB,  DTOBTR,  NTTB,  JPTRSS,  JHTBSS 
COMMON  /PARMTR/  TBMPTR,  VISCTB,  DENBTR,  ZEBOTR,  DROPTR 
COMMON  /TRFIT/  G1TB,  G2TB,  GINFTB,  APITB,  BTR,  CTB, 

&  DCXTB,  ACAXTR,  BCAXTB,  CDAXTB 

C  LABELED  COMMON  STATEMENTS  FOB  GEL-MODEL 

COMMON  /GMPARM/  PLEN6R,  DTUBGH,  NTGB,  JPGMSS,  JNGHSS 
COMMON  /PABMGM/  TEMPGM,  TISCGM,  DENB6H,  ZEROGH,  DBOPGN 
COMMON  /GMFIT/  GAMMA,  APIGM,  BPIGH,  DGH,  CGM,  RATIO, 

&  DCXGM,  ADAXGH,  BDAXGN,  CDAXGH,  CAGEL 

C  LABELED  COMMON  STATEMENTS  FOB  HYPOCHLOB INATION  MODULE 
COMMON  /UCPARH/  VUC,  ALPHC,  RDHC,  KEQHC,  CAOCL2, 

6  JHRTHC,  MCNTHC 

CCMMGM  /flCSAV2/  MNHOCL,  MWOCL,  HCRHO 
DIMENSION  JCARO(20),  lUNIT  (8) 

NAMELIST  /NAMERO/  TOLMX,  TOLMN,  HCNT2,  MCNT3,  KHBITE, 

8  AKA,  AKC,  ERE,  APIRO,  BPIBO,  GAHABO, 

e  BRO,  CBO,  NF,  BOKR,  JHRITE,  NSTEPS, 

8  VISC,  RHOB 

NAMELIST  /NAMEUT/  KHENRY,  ECOZ,  ETOC,  KRATE,  KDCOHP, 

8  EOZD,  UTEPCT,  ALPHA,  EN,  QPRIME, 

8  HWBITE,  RGAS,  UVRHO 

NAMELIST  /HAMEOF/  JPUFSS,  JHUPSS,  GlOF,  G2UF,  GINFUF, 

8  Cl,  C2,  CINF,  VISCUF,  DENBUF 

NAMELIST  /NAMETB/  JPTRSS,  JHTBSS,  GlTB,  G2TR,  GINFTB, 

8  APITB,  BTR,  CTB,  DCXTR,  ADAXTB, 

8  BOAITR,  CDAXTB,  VISCTR,  DENBTR 

NAMELIST  /NAHEGH/  JPGMSS,  JUGMSS,  GAMMA,  APIGM,  BPIGM, 


6  BGN,  CGM,  RATIO,  DCXGM,  ADAXGfl, 

6  BCAXGJI,  CDAXGN,  CAGEL,  VISC3M,  DENBGH 

NABELIST  /NAMEHC/  ALPHC,  RDHC,  KEQHC,  JHRTHC, 

5  MCNTHC,  HHHOCL,  MWOCL,  HCBHO 

DATA  lONIT/* NO  HE »,*♦•» 'UF’» 'TR*, 'GM' , • EO ' , • 0 V , • HC • / 

I  READ  (5,20)  ICASDfJCARD 
)  FORRAT(A4,T1,20A4) 

DC  30  1=1,8 

IFdCARD  .EQ.  laNIT(I)) 

6  GO  TO  (10,  110,  50,  60,  70,  80,  90,  100),! 

HC 


NONE  ♦  UF 

30  CONTINOE 

HRITE(6,40)  JCARD 

40  FOEMAT('THE  FOLLOWIS 
&  •  1GNOBEDV1^«20A4) 
GO  TO  10 

50  REA0(5,NANEUF) 

GO  TO  10 

60  BEAD  (5,NANETB) 

GO  TO  10 

70  READ  (5,NAnEGH) 

GO  TO  10 

80  BEA0(5,NAnER0) 

GO  TO  10 

90  BEAD(5,NANEUV) 

GO  TO  10 

100  BEA0(5, NAMEHC) 

GO  TO  10 
110  NRITE(6,120) 

120  FORMAT  (M^MP  HC 


JCARD 

FOLLOWING  CARD  IS  INVALID  AND  HILL  BE', 


MODEL  PARAMETERS'/) 


WRITE  (6, 130) 

130  FORMAT ('OHODBL  PARAMETERS  FOR  DLTBAFILTRATION  MODULE') 
ICARD^O 

WRITE(6,140)  JPDFSS,  G10F,  G2DF,  GINFUF,  JHOFSS,  Cl, 

6  C2,  CIHF,  VISCUF,  DENBOF 

140  FORMATCO  JP0FSS=  •  ,  13,  »  G  10F=»  ,  G 12.  5,  '  G20F=', 


&  G12.5,' 
&  G12.5,' 
&  ' 


GINFUF®', G12.  5/' 
C2=»,G12.5,' 
?ISCUF=',G12.5,' 


JHUFSS=',I3, '  C1=», 

CIHF=' ,G12.5/12X, 
DENBOF®', G12. 5) 


HR1TE(6, 150) 

150  FORMAT ('OMODEL  PARAMETERS  FOR  TUBULAR  RO  NODULE') 

WBITE(6,160)  JPTRSS,  GITR,  G2TE,  GINFTB,  JHTRSS,ADAXTR, 
&  BDAXTR,  CDAXTR,  APITR,  BTR,  CTR,  DCXTR, 

6  VISCTR,  DENBTR 

160  FORMATCO  JPTRSS® 13,  '  GlTR®' ,  G 12.  5,  '  G2TR®' , 
&G12.5,'  GIHFTR=',G12.5/'  JHTRSS®  ' ,  13,  '  ADAXTR  =  ', 

6  G12.5, '  BDAXTR®', G12.5,'  CDAXTR® ' ,G 1 2. 5/15X , 

6  'APITE=',G12.  5,  '  BTR®' ,  G12. 5,  '  CTR=',G12.5/ 

&  15X,'DCXTR=',G12.  5,  •  V ISCTB® ',  G 12.  5,  '  DENBTR®', 

&  G12.5) 

WRITE  (6, 170) 


90 


170  FOanAT (» OnODEL  PABAHETERS  FOR  GEL-MODEL*) 

HRITE(6,iaO)  JPGMSS,  GAMMA,  APIGM,  QPIGM,  JBGHSS,  BGM 
&  CGH,  BATIO,  DCXGM,  ADAXGM,  BOAXGM, 

5  CDAXGM,  CAGEL,  VISCGM,  DENBGM 

180  PORHAT('0  JPGMSS=»,I3,*  GAHM A=* , G1 2. b , '  APIGM=', 

6  G12.5,'  BPIGH=*,G12.  V'  JBGNSS=*  ,  13,  •  BGM  =  »  , 

6  G12.5,'  CGM  =  *,G12.5,'  RATI0=  •  ,G  12.  5/1  5X, 

6  *DCXGH=*,G12.5, •  ADAXGH=' ,G12. 5, *  BDAXGM= • , G12. 5/ 

6  14X, •CEAXGM=', G12.5,*  CAGEL= • ,G 1 2. 5 , •  VISCGH=', 

5  G12-5/14X,*DESBGM=*,G12.5) 

ilBITE{6,  190) 

190  FORMAT  ('OHODBL  PARAMETERS  FOB  REVERSE  OSMOSIS') 

HBITE(6,200)  JBRITE,  TOLNX,  TOLHM,  AKA,  NCNT2,  AKC, 

B  ERE,  APIRO,  NCNT3,  BPI60,  GAMABO,  BBO, 

6  MSTEPS,  CBO,  UP,  ROKE,  KiEITE,  VISC, 

G  RHOB 

200  FOBMAT(»0  JHR1TE=* , 13 , *  TOLHX=» ,G12. 5 , •  TOLMH=', 

6  G12.5,'  AKA=',G12.5/*  MCIIT2=* ,  13,  •  AKC=' , 

6G12.5,'  EBE=» ,G12.5, •  APIBO=' ,G12. 5/'  MCHT3=' 

B  13, »  BPIR0=*,G12.5,*  GANAfiO=* ,G12.5, •  BRO=*, 

6  G12.5/*  IISTEES=*,I3,»  CRO=' ,  G12. 5,  *  HP=», 

5  G12.5,'  R0KE=*,612. 5/»  KBRITE= * , 13, »  VISC=* , 

6  G12.5,'  HH0B=*,G12.5) 

RB1TE(6,210) 

210  FORMAT  (»OnOD EL  PARAMETERS  FOR  THE  OV/OZOMATIOH  OBIT') 
1iRlTE(6,220)  NHRIIE,  RHEMRX,  ECOZ,  ETOC,  KBATE, 

6  KCCOHP,  EOZO,  OYEFCT,  ALPHA,  EN,  QPRIMB, 

G  RGAS,  0?RHO 

220  FORMAT(»0  HWRIIB=»,I3,*  KHE»RY=» ,G12.5, »  ECOZ=», 

5  G12.5,*  BT0C=»,G12.5/15I,'KRATE=» ,G12.5, 

6  •  KDCOHP=' ,G12,  5,  *  EOZD=',  G12.  5/14X,*  aVEPCT=*  , 

6  G12.S,<  ALPHA*»,G12.5,»  EII=  •  ,G  1 2.  5/1 4X , 

6  •QPRIHE=*,G12.5, •  EGAS** ,G 12.5, »  OVRHO=* ,G12. 5) 

WRITE  (6,230) 

230  FORMAT  ('OaODBL  PARAMETERS  FOB  B YPOCHLOBI MATIOR  ONIT*) 
HBITE(6,240)  JWBTBC,  ALPBC,  RDHC,  HCBHO,  HCNTHC, 

5  REQHC,  CAOCL2,  HHHOCL,  HWOCL 

240  FORHAT(*0  JHRTHC=» ,13, *  ALPHC=* ,G12.5, »  BDHC=», 

C  612.5,*  BCRHO=*,G12.5/*  HCNTBC=' , 13 , *  KBQHC=», 

6  612.5,*  CAOCL2=*,G12.5,*  HHHOCL=*  ,  G12.  5/15X, 

B  •HHOCL>* ,G12.5) 

BBTHBR 

EMO 


SUBBOaXlNE  RSTBHE 


READ  STREAM  ELEMENT  DEFINITIONS 

COMMON  STREAM  («,  100)  ,  ICCNFG  (8 ,100)  ,  PAR  (500),  NPAR, 

&  NCALL,  lONIT,  NFATEE,  NS,  NEQ,  DESC(5) 

CCHMCN  /CREAD/  lElRST,  lAST,  ICARC  (20) 

COMMON  /NAMES/  IONITS(12),  NMSTRM  (5,  100)  , 

6  NMEQPT(5,  100)  ,  NHELB(5,5),  ISUNIT{5), 

6  NHPAH{6,75),  IDNMPR(150) 

DIMENSION  L(5) 

RRIIE(6,  10) 

10  FORMAT  (*1*SE  STREAM  ELEMENT  DEFI NITIONSV/6X# 

6  'ELEMENT  ONITS  DESCRIPTION') 

20  BEAD{5,30)  IFIRST,  NSl,  K,  L,  ICARD 
30  FORMAT(A1,I4, 1X,A4,5X,5A4,T1,20A4) 

IP  FIRST  CHARATER  IS  "♦'•  THEN  A  CONTROL  CARD  WAS  FOOND 
IF(IF1HST  .EQ.  lAST)  RETURN 
IF(NS1  .LE.  0  .OR.  NSl  .61.  5)  GO  TO  60 
ISaNIT(NSl)=  K 
DO  40  J=  1,5 
40  NMELB(MS1,J)  =  L(J) 

VRITB(6,50)  MSI,  ISaNIT(NSI),  (M MELE  (NS  1  , J)  ,  J=  1,5) 

GO  TO  20 

50  POBMAT(1X,I9,6X,A4,5X,10A4) 

60  WBITB(6,70)  NSl,  ICABD 

70  FOBMAT ('0**F**ELEHENT',I3,'  ENCOUNTERED.  WE  ONLY  HAVE 
&  '  ELEMENTS  ONE  THROUGH  FIVE  (1-5).  CHECK  DATA  CABO.'/ 
6  '  '",20A4,"") 


o  n  n 


SOBBOOTINE  BSIRNM 


READ  TEE  HANES  OF  THE  STREAKS 

CONNON  /CREAD/  IPIRST,  I  AST,  ICARD(20) 

COHHON  /NAMES/  iaNITS(12),  NMSTRN  (f>  ,  1 00)  , 

6  NNBCPT  (5,  100)  ,  NNELE(5,  5),  ISUNIT(5) 

6  NMPAR(6,75),  IDNnPR(150) 

OlHEHSION  L(5) 

HBITE(6,  10) 

10  POB«AT('1*SN  STREAM  NAN  ES* //6X,  •  STR  BAN 

&  • OESCfilPTION*) 

20  BEAD(5,30)  IFIBST,  N,  L,  ICABD 

30  FOBHAT  (Al,ia,5X,5A4,T1,20A4) 

C  IP  PIBST  CHARACTER  IS  THEN  A  CONTROL  CARD  BAS  READ 

IF(IFIRST  .EQ.  IASI)  RETURN 
DC  40  J=1,5 
40  HHSTBa(J,R)=  L  (J) 

HBITE(6,50)  N,  (NNSTRN  (J,M)  ,J=1  ,5) 

50  POBHAT(1X,I9 ,5X,5A4) 

GO  TO  20 


ooonon  non  non 


SUBHOUTIME  RCONFG 


BEAD  PLANT  CONFIGURATION 

INTEGER  NFAREQ(18),  NPARIC(ld),  EQNAnE(4,1d) 

COnnON  STBEAN  (4, 100) ,  ICON PG (8, 100) ,  PAB (500) ,  NPAB, 

B  NCALL,  lUNIl,  NFATER,  NS,  NEQ,  DESC(5) 

CCHHCN  /CBIAD/  IJIPST,  lAST,  ICARD(20) 

COMHCN  /NAMES/  iaNrrS(12),  MMSTRf!(5,  100)  , 

&  NMEQPT(5,  100)  ,  NaELE(5,5),  ISUNIT(5), 

B  NSPAR(6,75),  IDNHPR(150) 

NPABEQ(I)  IS  THE  NUMBEB  OF  PARAMETERS  FOR  EQUIPMENT  TYPE 
DATA  NPABEQ/4,  6,  1,  1,  7,  0,  6,  6,  12,  8,  0,  7,  4,  5, 
8  5, 6, 6, 6/ 

NPARIC(I)  IS  THE  NUMBEB  OF  INITIAL  CONDITIONS  FOR 
EQUIPMENT  TYPE  I 


DATA 

NPARIC/4,  4,  6 

♦  0,  3,  5 

,8*0/ 

DATA 

EQNAME/'MIXE*, 

*D  TA*, 

•NK  ', 

, 

’  / 

6 

*OVEH», 

•FLOl', 

•  TAN', 

•K 

*  f 

B 

•PUMP*, 

'  » 

•  • 

, 

t 

*  # 

B 

•STRE*, 

•AM  S*, 

•PLIT* , 

•TER 

$ 

8 

*STRE», 

•AM  S*, 

•OURC, 

•  E 

’  9 

8 

•STRE*, 

•AM  M*, 

•IXER*, 

1 

*  9 

8 

•ULTR*, 

•AFIL* , 

•TRAT*, 

•ION 

*  9 

8 

•REFE*, 

•BSE  •, 

•OSMO*, 

•SIS 

*  9 

8 

*UV-0*, 

•ZONE*, 

•  UNI*, 

•T 

*  9 

8 

•HYPO*, 

•CHLO* , 

•RINA*, 

•TION 

’  9 

8 

•STRE*, 

•AH  S*, 

•INK  *, 

1 

’  9 

8 

•PID  *, 

•CONT*, 

•ROLL', 

•EB 

*  9 

8 

•SENS*, 

•OR  •  , 

,  • 

, 

• 

*  9 

8 

•HANI*, 

•PULA*  , 

•  TOR  • , 

1 

’  9 

8 

•RATI*, 

•0  CO', 

•NTRO* , 

•LLER 

^  9 

8 

•BINA*, 

•BY  C* , 

•ONTR', 

•OLER 

*  9 

8 

•TUBU*, 

•LAB  *, 

•R-0  •, 

« 

*  9 

8 

•GEL  *, 

•MODE* , 

•L  OF*  , 

1 

V 

■RITE  (6,10) 

10  FORMAT  (MOC  PLANT  CONFIGURATION*/) 

■CALL=  -1 
NPAB-  1 
IUMIT=1 

20  BEAD  (5,30)  IFIBST,  (ICONFG  (I  ,I UNIT)  ,  1=  1,7), 

8  (NMEQPT(I,IONIT)  ,  1=  1,5),  ICARD,  DESC 

30  FORMAT  (A1,I4,3X,A2,5I5,5X,5A4,T1,  20A4, T4 1,  5A4) 

IF  FIRST  CHABACTEB  IS  "*•*  THEN  A  CONTROL  CARD  HAS  FOUND 
IF  (IFIBST  .EQ.  lAST)  GO  TO  60 
NEQ«  lUNIT 

ICONFG (8, lUNlT) «  NPAB 

CHANGE  EQUIPNENT  TYPE  ALPHA  CODE  TO  NUMERIC  CODE 
CALL  BQCODE 

READ  AND  RBITE  THE  PARAMETERS  ASSOCIATED  HITB  EACH  UNIT  OF 
EQUIPMENT. 


n  n 


C  READ  INPUT  CATA 

ITIPE=  ICONPG (2,I0NIT) 

NPABSs  NPAREQ  (ITYPE) 

NPABF=  NPAH  ♦  NPARS  -  1 
IF  (NPARS  .Eg.  0)  MPAaP=  NPAR 
READ(5,40)  (PAR  (I),  1=  NPAR,  NPARF) 

40  FORMAT  {8E10.0) 

HRITE(6,50)  ICONFG(1,IUMIT)  ,  ( EQNAM  E  (J,  ITYPE)  ,  J=  1, 

6  DESC 

50  FOHMAT( 'OUNIT  NC . • , 15, 10 X, 4 A4 ,4 X , 1 0A4) 

CALL  PBNTEC  TO  PRINT  OUT  STREAM  INPUTS  AND  OUTPUTS  FOR 
UNIT  lUNIT 

CALL  PRBTEC(NPARIC{ITYPE)  ) 

WRITE  (6,30) 

NPAR=  NPAR  *  NPARS 
iaNIT=  lONIT  ♦  1 
GC  TO  20 

60  MEQ=  lONIl  -  1 
CALL  STBH2 

IF  (NFATEB  .  EQ.  0)  RETURN 
WRITE (6, 70)  NFATEB 

70  FOBMAT('0*****»,I5,*  FATAL  ERRORS.  RUN  TERMINATED.') 


u  u  u  u 


SOBflOUTIHE  Slfifll 

THIS  SUBfiOOTINE  IS  USED  TO  MAKE  SURE  THAT  NO  STREAM  HAS 
BEEN  GIVEN  A  MULTIFLE  DEFINITION 

COMMON  STREAM  (4,100)  ,  ICONFG  (8 , 1  00)  ,  PAR  (500),  NPAR, 

5  NCALL,  lUNlT,  NFATER,  NS,  NEQ,  DESC(5) 

COMMON  /CHECK/  JSCK(2,  100) 

DO  110  1=  3,7 

K=  ICONFG  (I,IONIT) 

IF(K)  60,  120,  10 
C  AN  INPUT  STREAM 

10  1F(JSCK(1,K)  )  40,  20,  30 
20  JSCK(1,K)=  ICCNFG  (1,  lUNIT) 

GO  TO  110 

30  JSCK(1,K)=  -JSCK(1,K) 

40  L=  lABS  (JSCK  (1,K)  ) 

»RITE(6,50)  K,  L 

50  FCBHAT(6X, •♦♦♦♦♦STREAM*, 14,*  HAS  BEEN  PHEVIOUSLI*, 

6  •  DEFINED  AS  AN  INPUT  TO  UNIT', 14) 

MFATEH=  NFATER  ♦  1 

GO  TO  110 

C  AH  OUTPUT  STREAM 
60  K=  -K 

IF(JSCK(2,K)  )  90,  70,  80 
70  JSCK(2,K)s  ICONFG  (1,IUMIT) 

GO  TO  110 

30  JSr*  (2,K)  »  “JSCK  (2, K) 

90  L=  IABS(JSCK(2,K)) 

r£(6,100)  K,  L 

100  .  .HAT  (6X,  •♦♦♦♦♦STREAM*, 14,  •  HAS  BEEN  PREVIOUSLY*, 

&  *  DEFINED  AS  AN  OUTPUT  FROM  UNIT* ,14) 

NFATER^  NFATER  ♦  1 
110  CONTINUE 
120  BETQBN 
END 


non 


SOBBOOTItiE  SI6H2 


PRINT  STBEAH  SUNMABY 

COHBON  STREAM  (4,  100)  ,  ICONFG  (8,  100)  ,  PAR  (500)  ,  NPAR, 
6  NCALL,  lUNIT,  HEATER,  NS,  NEQ,  DESC(5) 

CCHMCN  /CHECK/  JSCK(2,100) 

WRITE  (6,10) 

10  EORMAT{* ISTREAM  SUMHAEY '/^X#' STREAM • ,5X , 'SOURCE* , 

6  5X, 'DESTINATICN') 

DC  210  1=  1,100 


K  = 

JSCK 

(1 

»I) 

L= 

JSCK 

(2 

,1) 

IF(L) 

20 

.  90 

# 

140 

20 

L= 

-L 

1F(K) 

30 

,  50 

# 

70 

30 

K= 

-K 

NB1TE(6,40)  I,  L,  K 

40  FORMAT {IX, 19, II 1,114, 5X, 'SOURCE  AND  DESTINATION', 

6  •  MULTIPLE  DEFINITION*) 

HFATER=  NEATER  4  1 
GO  TO  210 

50  iRITB{6,60)  I,  L,  K 

60  F0Rf!AT(lX, 19, 111, I14,5X, 'SOURCE  MULTIPLE  DEFINITIONS'/ 
6  •  NO  DESTINATION  DEFINITION') 

HFATER=  NFATEB  4  1 
GO  TO  210 

70  VSIT£(6,80)  I,  L,  K 

80  F08HAT(1X, 19, 111, 114, 5X, 'SOURCE  HULTIPLB  DEFINITIONS') 
NFATEB-  NFATEB  4  1 
GO  TO  210 

90  IF(K)  100,  210,  120 

100  K=  -K 

BBITE(6,110)  I,  L,  K 

no  FORMAT  (IX, 19, 111, 114,51, 'NO  SOURCE  DEFINITION/N ULTIPLE 
1DEFINITIONH') 

BFATEB=  NFATEB  4  1 
60  TO  210 

120  NBITE(6,130)  1,  L,  K 

130  FOBNAT(1X, 19, 111, 114,51, 'NO  SOURCE  DEFINITION') 

NFATEB^  NFATEB  4  1 
GO  TO  210 

140  1F(K)  150,  170,  190 

150  K=  -K 

BRITE(6,160)  I,  L,  K 

160  FORHAT{1X, 19, 111, 114, 5X, 'MULTIPLE  DESTINATION  DEFINITI 
NFATEB^  NFATEB  4  1 
60  TO  210 

170  NBITE(6,180)  I,  L,  K 

180  F0BHAT(1X, 19, 111, 114,51, 'NO  DESTINATION  DEFINITION') 
NFATEBs  NFATEB  4  1 
60  TO  210 

190  BB1TE(6,200)  I,  L,  K 


non 


SUBBOUTIME  EQCCDE 


CHANGE  EQUIPMENT  TYPE  ALPHA  CODE  TO  NUMBEEIC  CODE 

COMMON  STREAM  (4,  100)  ,  ICONPG  (8,  1 00)  ,  PAR  (500)  ,  NPA 
6  NCALL,  lUNIT,  NEATER,  NS,  NEQ,  DESC(5) 

C  EQUIPMENT  CODE  ARBAY 

DIMENSION  ICODB(18) 

DATA  ICODE  /'MT*,  'OT',  'P  ',  'SP',  'SO',  ‘SM',  'U 

6  'RO*,  •OV,  'HC,  'SK',  'CN*  ,'SN','HN* 

5  'RC*,  'BC,  'TR*,  'GM'/ 

C  GET  EQUIPMENT  CODE  FOR  UNIT  "lUNIT" 

M=  ICONPG  (2,IUNIT) 

C  LOCK  IN  EQUIPMENT  CODE  TABLE 
DO  10  1=1,18 

IF(M  .EQ.  ICODE(I))  GO  TO  40 
10  CONTINUE 

C  WE  DID  MOT  FIND  CODE  IN  TABLE 

IRITE(6,20)  M,  (ICCNFG(I,IONIT)  ,  1=  1,7) 

20  FORMAT  (/•  ♦♦♦♦♦EQUIPMENT  CODE  IN  FOLLOWING* 

6  •  ENTRY  IS  ILLEGAL*/11X,I5,3X,A2,5I5/) 

NFATER=  NEATER  ♦  1 
ICCNFG(2,iaNIT)=  0 

READ  (5,30)  A 
30  FORMAT(A4) 

RETURN 

C  SET  EQUIPMENT  TYPE  EQUAL  TO  NUMBERIC  CODE 
40  ICONPG (2, lUNIT) =  I 
RETURN 


non 


SUBfiOOTINE  PHNTEQ  (NIMCON) 

PHINT  THE  SPECIFICATICNS 

CCMflON  STBEAI  (4,  100)  ,  ICONFG  (8 , 1 00)  ,  PAR  (500),  NPAR, 
fi  NCALL  ,IUNIT,  NFATEE,  NS,  NEQ,  DESC(5) 

COMMON  /NAMES/  iaNITS(12),  NMSTPH  (5, 100)  , 

S  NHEQPT  (5,  100)  ,  NMELE(5,5),  ISUNIT  (5)  , 

S  NMPAB(6,75),  IDN'1PR(150) 

INTEGER  ISTR(5),  OSTR  (5) 

C  STREAM  CONTAINS  THE  INFORMATION  FOR  EACH  STREAM 
C  ICONFG  CONTAINS  THE  INFORMATION  FOB  EACH  UNIT 
C  NIMCON  IS  THE  NOMBEH  OF  INITIAL  CONDITIONS 
C  NINSTB  IS  THE  NUMBER  OF  INPUT  STREAMS  (HAX=  5) 

C  NOTSTR  IS  THE  NUMBER  OF  OUTPUT  STREAMS  (MAX=  5) 

NINSTH=  0 
NOTSTfi=  0 

C  POSITIONS  3  THRO  7  OF  ICCNFG  CONTAIN  THE  STREAM  NUMBERS 
C  TO/FRCM  UNIT  lUNIT 
DO  30  1  =  3,7 

J=  ICONFG  (I, lONIT) 

IF  (J)  10,  30,  20 
10  NOTSTR=  NOTSTR  ♦  1 
OSTE(MOTSIB)  =  -J 
GO  TO  30 

20  NINSTE=  NINSTR  ♦  1 
ISTB(NINSTR)  =  J 
30  CONTINUE 
HRITE(6,40) 

40  FORMAT (6X, 'INPUT  STREAMS') 

IF  (NINSTB  .NE.  0)  60  TO  60 
HRITB(6,50) 

50  FOBMAT(11X, 'HONE') 

GO  TO  90 

60  DO  70  1=  1, NINSTR 
J=  ISTR  (I) 

70  RRITE(6,dO)  J,  (NHSTfiM  (K, J)  ,  K=  1,5) 

80  FORMAT  (11, 115, 5X,SA4) 

90  HRITE(6,100) 

100  FORMAT (6X, 'OUTPUT  STREAMS') 

IF  (NOTSTR  .ME.  0)  GO  TO  110 
HRITE(6,50) 

60  TO  130 

110  DO  120  1=1, NOTSTR 
J=  OSTR  (I) 

120  NRITE(6,80)  J,  (NHSTRH  (K ,  J)  ,  K=1,5) 

C  CALL  STRHI  TO  CHECK  FOR  CONSISTANCY 

130  CALL  STRHI 

C  POSITION  2  OF  ICONFG  CONTAINS  THE  TYPE  CODE  FOR  UNIT  lUNI 
KEQ=  ICONFG  (2, lUNIT) 

K=  1 

140  lF(IDNnPR(K)  .EQ.  KEQ)  GOTO  150 
K=  K  ♦  2  ♦  IDHHPR(K»1) 


GC  TO  140 

150  KPAfi=  IDNMPH  (K  +  1) 

K=  K  ♦  2 
L=  NPAB 
¥BITE  (6,160) 

IbO  FOHflAT(  6X, 'INITIAL  CONDITIONS*) 

IF(NINCON  .NE.  0)  GC  TO  180 
«BITB(6,170) 

170  FOHHAT(  IlX.'NQNE') 

GC  TO  210 

180  DO  200  I=1,NINCCN 
J=  IDNflPB  (K) 
n=  linFAB(6,J) 

WRITE(6,190)  (NHEAE(IA,J)  ,  IA=1,5),  PAR  (L)  ,  IUNITS(«) 
190  FORBAT  (11X,5A4,G14.5,  1X,A4) 

L=  L  ♦  1 
200  K=  K  ♦  1 

210  RBITE(6,220) 

220  FOfiHAT{  6X, 'DESIGN  PARAMETERS') 

MDESPB=  KPAR  -  NINCGN 
IF  (NOESPS  .NE.  0)  GO  TO  230 
RBITB(6,  170) 

BETOEN 

230  DO  240  I=1,N0ESPB 
lONHPS(K) 

RNPAB(6,J) 

NBITE(6,190)  (RnPAR(IA,J)  ,  IA=1,5),  PAR  (L)  ,  lUNITS(N) 
L*  L  ♦  1 
240  K=  K  ♦  1 

BETUBN 


n  n  n 


SDBEOUTIME  RPEINT 


KE&D  PBINT  SPECIFICAIICNS 

COMHON  /CPRINT/  'TPRIN'I,  NPELE,  KPEINT(2,10) 
WRITE(6,  10) 

10  FORMAT  CI^PR  PBINT  SPECIFICATIONS'/) 

8EAD(5,20)  TPRINT 
20  FOBHAT(G10.5) 

1IBITE(6,30)  IPSINT 

30  FORMAT  (*0  PRINT  INTERVAL  IS  ',013.5,'  HRS'/) 

CALL  SPEC(KPBINT,NPELB,10) 

BETOBN 

END 


102 


onooo  non 


SUBROUTINE  OFLINE 


SETUP  THE  LABEL  ON  THE  OFF-LINE  STARAGE  DEVICE  (UNIT  8) 

COMMON  /CTIME/  TIMf,  FTIME,  DT 
COMMON  /COFLN/  NPL,  LIST  (2,50),  LABLE,  TOFLN, 

S  MESSAG(20),  lEOP,  IHEAD 

SHITE  (6,10) 

10  FORMAT  (M+OL  OFF-LINE  PARAMETER  LIST') 

READ(5,20)  MESSAG 
20  FCRNAT(20A4) 

SBITE(6,30)  MESSAG 

30  FORMAT (•  THE  HEADER  MESSAGE  FOR  THE  DATA  SET  IS'/ 
e  1X,20A4) 

BEAD  (5,40)  LABLE 
40  FORMAT  (12) 

IF  (LABLE  .LT.  0)  GO  TO  60 
SHITE  (6,50) 

50  FORMAT  ('  THE  NES  VALUES  HILL  BE  ADDED  TO  THE  END', 

5  '  OF  THE  DATA  SET.') 

GO  TO  80 

60  SRITE(6,70) 

70  FORM  AT (•  THE  DATA  SET  SILL  BE  CLEARED,  AND  THE  NES', 
e  '  VALUES  SAVED  FBCH  THE  BEGINNING.') 

80  READ  (5,90)  TOFLN 
90  FORHAT(F10.3) 

SRITE(6,100)  TCFLN 

100  FORMAT  ('  THE  SAVE  INTERVAL  IS',G12.4) 

CALL  SPEC(LIST,NPL,50) 

HBITE  LABEL  OH  OFF-LINE  STORAGE  DEVICE  ON  UNIT  8 
IF  LABLE  .LT.  0,  TEEN  CLEAR  BATA  SET 

IF  LABLE  .GE.  0,  THEN  ADD  AT  THE  END  OF  THE  DATA  SET 
BEHIND  8 

IF  (LABLE  .LT.  0)  GO  TO  120 
no  READ  (8,150, EHD=130)  ICODE 

IF(ICOOE  .HE,  lEOF)  GO  TO  110 
BACKSPACE  8 
C  SRITE  HEADER 

120  SBITB(8,150)  IHEAD,  MESSAG,  TOFLN,  NFL, 

6  (LIST  (1,1),  LIST  (2,1),  1=  1,  NPL) 

RETURN 

130  RBITE(6,140) 

140  FORMAT ('  ♦♦♦♦♦  BND-OF-FILB  OCCURRED  SHILE  SETTING', 

6  '  OP  THE  OFF-LINE  STORAGE  HEADER  ♦♦♦♦♦•) 

STOP 

150  FOBNAT(A4) 

END 


n  n  n 


SOBHOOTINE  PLOTl 

READ  IN  THE  PARAMETEBS/ELEMENTS  TO  PLOT 

COMMON  /CPLOT/  NPLOT,  TPLOT,  fCPLOT,  PLTDTA  (1 00, 10) 
G  JPSTBM(2,  10) 

BEAD  (5,  10)  TPLOT 
10  FOBMAT(FIO-O) 

WRITE  (6,20) 

20  FORMAT  {»1*PL  PLOT  VARIABLES') 

WRITE(6,30)  TPIOT 

30  FORMAT  (/6X,  'PiOT  DURATION',  F7.  2,  '  HRS'/) 

CALL  SPEC  (JP STEM, NPLOT,  10) 

RETURN 
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SOBEOOTINE  OlDVAl 


LOCATE  THE  DESIREE  SET  OF  OLD  VALUES 

COMMON  /COFLN/  NPL,  LIST  (2, 50),  lABlE,  TOFLN, 

S  MESSAG{20),  lEOF,  IHEAD 

COMMON  /CTIME/  TIME,  PTIMB,  DT 
DIMENSION  MSG(20) 

HRITE(6,  1) 

1  FORMAT  (M^OL  OLD  VALUES  SPECIFICATIONS*) 

C  READ  THE  UNIQUE  MESSAGE 
HEAD(5,10)  MBSSAG 
10  POBMAT(20AU) 

HBITE(6,20)  MBSSAG 
20  FOBMAT(U,20A4) 

REMIND  a 
C  FIND  HEADER 

30  BEAD  (8,70, END  =  50)  ICODB 

IP(ICODE  .EQ.  lEOF)  GO  TO  50 
IF  (ICODE  .NE.  IHEAC)  GO  TO  30 
READ  (8,70, ENO=50)  MSG 
DO  40  1=1,20 

IP  (MSG  (I)  .NE.  MESSAG(I))  GO  TO  30 
40  CONTINUE 

READ(8,70,EHD=50)  TOFLN,  NPL,  (LIST(1,I),  LIST(2,I) 
S  1=  1,  NPL),  PTIMB,  DT 

NFL=  -NPL 
BETOBN 

50  MBITE(6,60)  MBSSAG 

60  FOBHATC  THE  BUN  FOR  •/ IX ,  20  A4/'  MAS  NOT  POUND.*) 
STOP 

70  F0BHAT(A4) 


f  / 


SOBnOOTINE  SAVEIT 


SAVE  VAIUES  CN  OFF-LINE  STOBAGF  DEVICE,  UNIT  8 


COnSON  /COFLN/  NPL,  LIST  (2,50)  ,  LABLE,  TOFLN, 
8  nESSAG(20),  lEOF,  IHEAD 

CC'lfICN  STREAH  (4,  100)  ,  ICONFG  (8,  100)  ,  PAR  (500) 
6  NCALL,  lUNIT,  NFATER,  NS,  NEw,  DESC(5) 

COHMOM  /CTINE/  TIME,  FTIME,  DT 
dihensicn  p(50) 

IF  (NPL  . LE.  0)  RETURN 
DO  20  1=  1,  NPL 
K=  LIS1(1,I) 

L=  LIST  (2,1) 

IF(K  .GT.  0)  GO  TO  10 
P(I)  =  PAR  (L) 

GO  TO  20 

10  P(I)=  STREAH(L,K) 

20  CONTINUE 

iRITE(8,30)  TINE,  (P  (I)  ,  1=  1,  NPL) 

30  F0B!1AT(A4) 

RETURN 
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SOBEOUTINE  GETIT 


RETBEIVE  THE  VALUES  THAT  HEBE  SAVED  ON  THE  OFF-LINE 
STCHAGE  DEVICE,  UNIT  8,  BY  "SAVEIT"  IS  A  PREVIOUS  BUN 

COHMON  /COFLN/  NPL,  LIST{2,50) ,  lABLE,  TOFLN, 

6  MESSAG(20),  lEOF,  IHEAD 

COBHCN  STREAM  (4, 100) ,  ICONFG (8, 100) ,  PAR  (500) ,  NPAR, 
6  NCALL,  lONIT,  NFATBR,  NS,  NEQ,  DESC(5) 

COMMON  /CTIME/  TIME,  FUME,  DT 
DIMEHSICN  P(50) 

KPL=  -NPL 

HEAD  (8,  30)  TIME,  (P  ( J)  ,  J  =  1  ,  KPL) 

DO  20  1=  1,  KPL 

K=  LIST  (1,1) 

L=  LIST  (2,1) 

IF(K  .GT.  0)  GO  TO  10 
PAB(L)=  P(I) 

GO  TO  20 

10  STREAM  (L,K)  =  P  (I) 

20  CGRTISOE 
30  FORMAT  (A4) 

RETURN 

END 
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SOBaOOTINE  PRINT 


C 

C  TBIS  SOBBOOTINE  IS  OSID  TO  PRINT  OUT  THE  SPECIFIED  VALUES 
C 

COMMON  STREAM  (4,  100)  ,  ICCNFG  (3 , 1 00)  ,  PAS(500),  NPAfi, 

5  NCALL,  lUNIT,  NPATEH,  NS,  NEQ,  DESC  (5) 

COMMON  /CPRINT/  TPEINT,  NPELE,  KPRINT(2,  10) 

COMMON  /CTIME/  TIME,  FTIME,  DT 

DIMENSION  P(10),  NHE1(10),  NME2(10),  11(10),  12(10), 

6  NANE1  (2)  ,  NAME2  (2) 

DATA  NAMEI,  N AME2/ ’STEM « ,  'UNIT',  'ELE. *,  'PAR.'/ 

DATA  LINE,  NLINES/0,  51/ 

C  PRINT  HEADINGS  HEEN  LINE  =  0 
IF  (LINE  .GT.  0)  GO  TO  50 
DO  20  1=  1,  NPELE 

K=  KPRINT(1,I) 

L=  KPRINT(2,I) 

J=  1 

IF(K  .GT.  0)  GO  TO  10 
J=  2 
K=  -K 

L=  L  -  ICCNFG  (8,  K)  ♦  1 
K=  ICONFG(1,K) 

10  NME1  (I)  =  NAMEI  (J) 

KME2(I)  =  MAN£2(J) 

II  (I)=  K 
20  12  (I)=  L 

«BITE(6,30)  (NHE1(I),  11(1),  I»  1,  NPELE) 

30  FORHAT(*1 '»10X,10 (41, A4,I4)) 

WRITE  (6,40)  (MHE2(I),  12(1),  1=  1,  NPELE) 

40  FORMAT (6X, 'TIME  • , 10  (4X, A4 ,14) ) 

LI«E=  N LINES 
C  RETRIEVE  ELEMENTS 
50  DO  70  Is  1,  NPELE 

Rs  KPBINT(1,I) 

1=  KPFINT(2,I) 

IF(K  .GT.  0)  GO  TO  60 
P(I)s  PAB(L) 

GO  TO  70 

60  P(I)=  STREAM  (L,K) 

70  CONTINUE 

«RITE(6,80)  TIRE,  (F  (I) ,  1=  1,  NPELE) 

80  FORHAT(1Z,G10.3,  10G12.3) 

LINE*  LINE  -  1 
RETURN 
END 


n  n 


SOBROUTIMF  PLOT2 


SAVE  THE  VALUES  OF  THE  FIRANETEPS/ELEHENTS  FOM  PLOTTING 

COHHON  STBEAS  (4,100)  ,  ICO NFG  ( 8 , 1 00)  ,  PAR(500),  NPAK 
C  NCALL,  lONIT,  NFATER,  NS,  NEQ,  DESC  (5) 

CCflHON  /CPLOT/  NPLOT,  TPLOT,  KPLOT,  PLTDTA  ( 1 00, 1 0) , 

&  JPSTBN(2,  10) 

CONNON  /CTIME/  TIME,  PTIHB,  DT 
IP  (KPLOT  .EQ.  100)  RETURN 
10  CONTINUE 

KPLOT=  KPLOT  ♦  1 
DO  30  1=  1,  NPLOT 

K=  JPSTRH  (1,1) 

L-  JPSTBM  (2,1) 

IF  (K  .GT.  0)  GO  TO  20 
PLTDTA  (KPLOT, I) =  PAR (L) 

GO  TO  30 

20  PLTDTA(KPLOT,I)=  STREAM  (L,K) 

30  CONTINUE 

IF(KPLOT*0.01*TPLOT  .LB.  TIME)  GO  TO  10 
BETUBN 


1 
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SUBFOOTINE  SPEC  (I«FE AY, N, NZ) 

PEAD  VARIABLES  TC  BE  PRINTED,  PLOTTED,  OP  SAVED  OFF-LINE 

COHMOH  STREAM  (4, 100)  ,  ICONFG  (8 , 1 00)  ,  ?AR(500),  NPAR, 

1  NCALL,  lUNIT,  MFATSH,  NS,  NEQ,  DESC  (5) 

COMMON  /CHEAD/  IFIRST,  lAST,  ICARC(20) 

COMMON  /NAMES/  lONITS  (12) ,  NMSTRH  (5,  100)  , 

8  NMEQPT  (5,  100)  ,  NMELE(5,5),  ISyNIT(5), 

8  NMPAR(6,75),  IDNMPR(150) 

DIMENSION  IARRAY(2,NZ) 

N  =  0 

10  PEAD(5,20)  IFIRST,  K,  L,  ICARD 
20  FORMAT  (A1 ,14,15, T1,20A4) 

C  IF  THE  FIRST  CHARACTER  IS  THEN  IT  IS  A  CONTROL  CARD 

IF(IFIflST  .EQ.  lAST)  BETORN 
IP(N  .LT.  NZ)  GO  TO  40 
WRITE  (6, 30)  ICARD,  NZ 

30  FORMATC  ♦♦♦♦♦CARD  •••,20A4,»'‘  IGNORED.  SI** » 

8  •  MAXIMUM*) 

GO  TO  10 

40  IF(K  .GT,  0)  GO  TO  110 
C  ENTRY  IS  UNIT/PABAHETEB 
K=  -K 

C  LOOK  FOR  UNIT  NUMBER  IN  CONFIGURATION  ARRAY 
DO  50  1=  1,NEQ 

IF  (ICONFG  (1,1)  .EQ.  K)  GO  TO  70 
50  CONTINUE 

1BITE(6,60)  ICARD,  K 

60  FORMAT  (•  ♦♦♦♦♦CARD  •••,20A4,'*'  IGNORED.  NO  UNIT*, 

6  •  NUMBER*, 15) 

GO  TO  10 

C  «E  HAVE  FOUND  UNIT  K 
70  N=  H  ♦  1 

IABBAY(1,N)=  -I 

lABBAY  (2,N)==  ICONFG  (8,1)  ♦  L  -  1 
ITYPE=  ICONFG  (2,1) 

H=  1 

80  IF  (lONMPB  (M)  -  EQ.  ITYPB)  GO  TO  90 
H=  H  ♦  2  ♦  IDNnPB(M*1) 

GO  TO  80 

90  H=  H  ♦  1  ♦  I 

lONHPB  (M) 

NBITE(6,100)  K,  (NMEQPT  (J,I)  ,  1,5),  L, 

8  (NNPAB(J,N)  ,  J-  1,5) 

100  FOBHAT(*  ♦♦♦♦♦UNIT*,  19,  5X,  5A4  /  6X,  'PARAMETER*, 

8  14,  6X,  SA4) 

GO  TO  10 

C  ENTRY  IS  STBBAR/ELERENT 
110  B=  N  ♦  1 

IABRAY(1,N)=  K 
IABRAY(2,N)~  L 

WBITE(6,120)  K,  (NMSTRH  (J,K)  ,  J=  1,  5),  L, 


5  (NHELE  (L,  J)  ,  J=  1,  5) 

120  FORflATC - STREAM*,  l7,  5X,  5A4  /  faX 


&  'ELEMENT',  16,  5X ,  5A4) 
GC  TC  10 
END 
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SOBSOUTINE  BCABD 


READ  A  DATA  CCNTBCl  CARD 

COSNON  /CREAD/  IFIESl,  IASI,  ICAHD(20) 

HEAD(5,  10)  IFIRST,  ICARD 
10  FORMAT  (A1,T1 ,20A4) 

FIRST  CHARACTER  MUST  BE  FOR  A  DATA  CONTROL  CARD 

IF  (IFIRST  .EQ.  lAST)  RETURN 
HRITE(6,20)  ICARD 

20  FORMAT  ( »0*****EXPBC1ING  DATA  CONTROL  CARD,  FOUND  '/ 

5  •  •  "  ,20A4,  •  •  •  •) 


SQBECUTINE  SOECAL 

CALL  SUBROUTINE  CORRESPONDING  TO  EQUIPMENT  TYPE 
COMMCN  STREAM  (4,  100)  ,  ICONFG  (8 , 1  00)  ,  ?AE(500),  NPAR, 
5  NCALL,  lUNIT,  NEATER,  NS,  NEQ,  DESC(5) 

GET  EQUIPMENT  TYPE 
ITYPE=  ICCNFG (2,1UNIT) 

IF  (ITYPE  .EQ.  0)  RETURN 

GO  TO (10,20, 30,40,50,6  0,70,80,9  0, 100, 1 10 , 120, 130,  140 
MT  OT  P  SP  SO  SM  OF  RO  UV  HC  SK  CN  SN  MN 
5  150,160, 170, 180) , ITYPE 

RC  BC  TP  GM 

RETURN 
10  CALL  MT 
RETURN 
20  CALL  OT 
RETURN 
30  CALL  P 
RETURN 
40  CALL  SP 
RETURN 
50  CALL  SC 
RETURN 
60  CALL  SH 
RETURN 
70  CALL  OF 
RETURN 
80  CALL  RO 
RETURN 
90  CALL  UY 
RETURN 
100  CALI  HC 
RETURN 
110  CALL  SK 
RETURN 

120  CALL  PIO 
RETURN 

130  CALL  SENSOR 
RETURN 

140  CALL  EANIP 
RETURN 

150  CALL  RATIO 
RETURN 

160  CALL  BINARY 
RETURN 
170  CALI  TR 
RETURN 
180  CALL  GM 
RETURN 
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SUBROUTINE  PLOT3 

THIS  SUBROUTINE  MAKES  THE  LINEPRINTEB  PLOTS 

COMMON  STREAM  (4,  100)  ,  ICONFG  (8,  100)  ,  PAR  (500)  ,  NPAR, 

&  NCALL,  lUNIT,  NFA lER , NS , NEQ ,DESC  (5) 

COMMON  /CELOT/  NPLOT,  TPLOT,  KPLOT,  PLTDTA  ( 1 00 , 1 0) , 

6  JPSTBM(2,  10) 

COMMON  /CREAD/  IFIRST,  lAST,  ICARD(20) 

COMMON  /NAMES/  iaNITS(12),  NMSTBM  (5 , 1 00) , 

5  NMECPT  (5,  100)  ,  NMELE(5,  5),  ISUNIT  (5)  , 

6  NMPAR(6,75),  IDNMPR(150) 

DIMENSION  ICUR(IO),  lAHR(IOO),  XAXIS  (5)  ,  PLTCRD(2,10) 
EQUIVALENCE  (10 AED1,  ICARD  (  1)  ) 

LATA  ICD1/'*PC  V#  IBLK/*  */,  ISTAR/'*'/ 

IF(NPL01  .EQ.  0)  RETURN 
Kl=  1 

CALL  BCARO 

IF(ICARD1  .EQ.  ICD1)  GO  TO  20 
HRITE{6,10)  ICARD 

10  FORMAT  (•OEXPICTING  BATA  CONTROL  CARD  "♦PC  ",  FOUND'/ 

6  '  '",20X4,"") 

STOP 

20  HHITE(6,30) 

30  FORMAT  (» 1PLOT  PARAMETERS') 

DO  100  K2=  K1,  NPLOT 

BEA0(5,40)  ICHB(K2),  (PLTCBD  (J,  K2) ,  1,  2) 

40  FORMAT (A1,4X,2F10.0) 

IF(ICHB(K2)  .EQ.  IBLK)  GO  TO  110 
K-  UFSTBN(1,K2) 

JPSTBH(2,K2) 

IF(R  .GT.  0)  GO  TO  80 
K=  -K 

I0NIT=  ICONFG (2, K) 

KP1B=  L  -  ICONFG  <8, K)  ♦  1 
H=  1 

50  IF(IDBHPB(H)  .  EQ.  lONIT)  GO  TO  60 
N-  H  ♦  2  ♦  IDNNPB(N«1) 

GO  TO  50 

60  H  ♦  1  ♦  KPAR 

HI-  lOMHPR(n) 

IXIZ-  K 

JXIZ=  ICONFG (1,K) 

NBITE(6,70)  ICHR(R2),  JXXZ,  (NNBCPT(J,IXTZ)  ,  1 , 5)  , 

6  PLTCRD  (1,K2)  ,  KPAB, 

6  (NHPAB(J,NI)  ,J=1,  5)  ,  PLTCRD(2,K2) 

70  FORMAT  (/IX, A1,' - UNIT' ,1 10, 5X, 5A4, 5X, 'TO  =',F12.2/ 

1  6X,  •PAfiAHETER',I5,5X,5A4,5X,'TMAX  =',F12.2) 

GO  TO  100 

80  HBITB(6,90)  ICHR  (K2)  ,  K,  (NMSTBM  (J,R)  ,  J=  1, 5)  , 

&  PLTCBO  (1,R2)  ,  L, 

G  (HHELE(L,J}  ,J-1,5)  ,PITCBD  (2,K2) 

90  F0BMAT(/1X,A1,' - STREAM' ,  18,  5X,  5A4, 5X,  '  TO  =' , 


•*,  -T, 


6  F12. 2/6X, • ELEnENT*,I7,5X,5A4,5X,' YdAX  =',F12.2) 
100  CONTINUE 

K2=  NPLOT 
GO  TO  120 
110  K2=  K2  -  1 

120  NBITE  (6,130) 

130  FOBHATCO*) 

LINE=  40 

140  DO  150  1=1,100 
150  lARR  (I)=  IBLK 
K=  K2 

160  YO=  PLTCBD(1,K) 

YaX=  PLTCBD  (2,K) 

DY=  (YHX-YO) /40- 
DO  170  1=  1,  KELOT 

J=  0.5  ♦  (PLTDTA  (I,K) -yO)/DT 
IF(J  -NE.  LINE)  GO  TO  170 
ICaAR=  ICHR(K) 

IF  (lARR  (I)  .NE.  IBLK)  ICHAR=  ISTAR 
IAH8{I)=  ICHAR 
170  CONTINUE 

K=  K  -  1 

IF(K  .GE.  K1)  GO  TO  160 
IF((LINE/10)  *10  .EQ.  LINE)  GO  TO  190 
BRITB(6,180)  lABR 
180  FORMAT (111, ,100A1) 

GO  TO  210 

190  YO=  PLTCRD(1,K1) 

YHX=  PLTCBD  (2, K1) 

DY=  {YnX-YO)/40. 

YC=  10  ♦  LINE^DY 
NRITE(6,200)  YC,  lARB 
200  FORHAT(1X,F10,2,***,  100A1) 

210  LIHE=  LINE  -  1 

10=  P1TCRD<1,K1) 

IF  (LINE  .HE.  0)  GO  TO  140 
NBITB(6,220)  TO 

220  FORMAT  {1X,F10. 2, » ♦», 10  (* ♦♦♦♦♦♦*♦♦♦•)) 

DX=  TPLOT/5. 

DO  2  30  1=1,5 
230  ZAXIS(I)=  0X«I 

NfilTE  (6,240)  XAXIS 

240  FORMAT (10X,»0.00»,5F20.2//50X, 'TIME,  HR  •/) 

K1=  K2  ♦  1 

IF(K1  .LE.  HELOT)  GO  TO  20 

CALL  BCABD 

BETOBN 

END 


115 


SDBFOOTINE  MT 


-7-. 

,  V.' 


P' 

•/*« 

i 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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THIS  SOBROOTINE  SIHOLATES  A  HIXIMG  TANK 


INPOT  I 
STREAMS  I 

- >1 

- >  I 


1  COTPUT 

MIXING  1  STREAMS 

TANK  I - > 

_ I - > 


PARAMETER 

1 

2 

3 

4 


QUANTITY 
INITIAL  VOLUME 
INITIAL  TSS  CONC. 
INITIAL  TDS  CONC, 
INITIAL  TOC  CONC. 


♦  BALNCE(I) 
PAR  (NPAR)  MPAR  (NPAR  +  1) 
PAR  (NPAR)  ♦PAR  {NPAR+2) 
PAfi(NPAR)  MPAR  {NPAR+3) 


BALMCB(2) 
BALNCE(3) 
BALNCE  (4) 


COMMON  STREAM  (4,  100)  ,  ICONFG  (8,  100)  ,  PAR  (500),  NPAR, 
6  NCALL,  lONIT,  NEATER,  NS,  NEQ,  DESC(5) 

COMMON  /CTIHE/  TIME,  FTIME,  DT 

COMMON  /MATBAL/  BALNCE  (4),  AMTIN  (4)  ,  AMT0UT(4) 

COMMON  /LOOK/  ISH 

ASCERTAIN  IE  HEAL  PARAMETERS,  INITIALIZE,  OR  COMPOTE 
IF  (NCALL)  10,  20,  70 
MATERIAL  BALANCE 
10  EALMCE(1)=  PAR  (NPAR) 

EALNCE(2)  = 

EALNC£(3)  = 

EALMCE(4)  = 

RETURN 

INITIALIZATION  CALCUALTIONS 
20  DC  50  1=  3,  7 

J=  ICONFG  (I,IUNIT) 

IF(J)  30,  60,  50 
J=  -J 

STREAM  (2,J)  = 

STREAH(3,J)= 

STREAM  (4,  J)  = 

CONTINUE 
RETURN 
SIMULATION 

V=  PAR(NPAR) 

VC2=  V*PAE(NPAB*1) 

VC3=  VMPAR (NPAR+2) 

VC4=  ¥MPAR(NPAR+3) 

DO  100  1=3,7 

J=  ICONFG  (I, IQNIT) 

IF(J)  80,  100,  90 
OUTPUT  STREAM 


30 


50 

60 

70 


PAR  (NFAB«1) 
PAR  (NPAB*2) 
PAR  (NPAB«3) 


80 


J=  -J 

F=  STREAM (1,J) 
TSS=  PAR(NFAB«1) 
TDS=  FAR(NFAR«2) 
TOC=  PAR  (NPAR  +  3) 
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STHEAM(2,J)  =  ISS 
STREAM  (3,  J)=  TCS 
STREAM (4,J) =  IOC 
V=  V  -  CT*F 
VC2=  VC2  -  CT*F*TSS 
VC3=  VC3  -  DT*F*TDS 
VC4=  VC4  -  DT*F*TOC 
GO  TO  100 
INPOT  STREAM 
90  F=  STREAM {1,J) 

V=  V  ♦  DT*F 

VC2=  VC2  ♦  DT*F*STRBAM (2, J) 

?C3=  VC3  ♦  DT*F*STFEAH  (3,J) 

¥C4=  VC4  ♦  DT*F*STREAN  (4,J) 

100  CONTINUE 

IF(V  .GT.  0-0)  GO  TO  130 
BHITE{6,110)  ICCNFG(1,IONIT) 

110  FORMAT  (•0*****HAeNING-  UNIT  NUMBER',  15,  ' 
DO  120  J=  1,  4 
120  PAR(NPAE*J-1)  =  0. 

GO  TO  140 
130  CONTINUE 

PAB(NPAB)  =  V 
PAR(NPAB>1)=  VC2/V 
PAR(NPAR*2)=  ¥C3/T 
PAH{NPAH  +  3)  =  VC4/V 
140  CONTINUE 

J=  NP4R  ♦  3 

IF(IS»-BQ.1)  WRITE  (6,  150)  lONIT,  (PAR  (I)  ,] 
50  FORMATC  UNIT', 15, •  MT  VOL=' ,  G1  0. 3 , 5X  ,  •  i 
S  Gl0.3,5X,'DS=',Gl0-3, 
fi  *TOC=' ,G10.3) 

GO  TO  20 
END 


HAS  RUN  DRY*) 


WRITE  (6,  150)  lUNIT,  (PAR  (I)  ,I=NPAR,  J) 
»,I5,»  MT  VOL=' ,G10.3, 5X,» SS=» , 


SOBROOTINB  OT 


C 

C  THIS  SDBROOTINE  SIBOIATES  AN  OVERFLOW  TANK 
C 

c  _ 

C  INPUT  I  1  OVERFLOW 

C  STREAMS  I  OVERFLOW  J - >  1 

C  - >1  TANK  I  OUTPUT 

C  - >1 _ I - > 

c 

C  PARAMETER  QUANTITY 

C  1  INITIAL  VOLUME 

C  2  INITIAL  TSS  CONC. 

C  3  INITIAL  TDS  CONC. 

C  4  INITIAL  TOC  CONC. 

C  5  OVERFLOW  RATE 

C  6  MAXIMUM  VOLUME 

C 

C  THE  OVERFLOW  STREAM  HOST  BE  SPECIFIED  FIRST 

CCMMCN  STBEAM(4,  100)  ,  ICONFG  (8 , 1  00)  ,  PAR  (500),  MPAR, 

6  NCALL,  lUNIT,  NPATER,  NS,  NEQ,  DESC ( 5) 

COMMON  /CTIME/  TIME,  FTIME,  DT 

CCMMCN  /MATEAL/  BA1NCE(4),  AMTIN  (4)  ,  AMTOOT(4) 

CCMMCN  /LCCK/  ISW 

C  ASCERTAIN  IF  HEAD  PARAMETERS,  INITIALIZE,  OR  SIMULATE 
IF(NCALL)  10,60,110 
10  IF  (ICONFG  (3,I0NIT)  .LT.O)  GOTO30 
WRITE  (6,  20)  lUNIT, ICONFG  (3,IONIT) 

20  F0RMAT(6X,******EER0R,  UNIT’, 15,'.  FIRST  STREAM  IN* , 

6  *  CONFIGURATION  IS*, 15,'.  MOST  BE  THE  OUTPUT  STREAM* 
&  *  FOR  OVERFLOW*) 

NFATER=  NEATER  ♦  1 
30  IF  (PAR{NPAB»5)  .GT.  0.)  GO  TO  50 
WBITB(6,40)  lONIT,  PAB(NPABf5) 

40  FORMAT (6X,******EFROR,  UNIT*, 15,*.  MAXIMUM  VOLUME  =* 
6  P10.2,*  IS  INVALID.  MUST  BE  POSITIVE,*) 

NFATER^:  NFATEB  *  1 
C  MATERIAL  BALANCE 

50  BALNCE(1)=  PAR  (NPAR)  ♦  BALNCE(I) 

BALNCE(2)=  PAR  (NPAR)  •PAR  (NPAR^I)  *  BALNCE(2) 

BALNCE  (3)  =  PAR  (NPAR)  «PAB  (NPAR*2)  *  BALNCE(3) 

BALNCE(4)  =  PAR  (NPAR)  *PAB  (NPARt3)  *  BALNCE  (4) 

RETOBN 

C  INITIALIZATION  CALCULATIONS 
60  J=-ICONFG  (3,I0NIT) 

STREAM  (1,J)=  PAR(NPAR»4) 

70  DO  90  1=  3,  7 

J=  ICONFG  (I,  lONIT) 

IF(J)  80,  100,90 
80  -J 

STREAM  (2, J)=  PAR(NPAB«1) 

STREAM  (3, J)  s  PAR  (NPAB4^2) 

STREAM(4,J)-  PAB(NFAB^3) 


90  CONTIMOE 
100  RETOBN 
C  SIMOLATICN 
110  F=  0. 

DO  140  1=  4,  7 

J=  ICONFG  (I,  lOHIT) 

IF(J)  120,140,  130 
120  J=  -J 

F=  F  -  S1BFAM(1,J) 

GO  TO  140 

130  F=  F  ♦  STREAH(1,J) 

140  CONTINUE 

V=  PAfi(NPAR) 

K=  -ICONFG {3,I0NIT) 

FL08=  PAR(NPAR*4) 

VX=  V  ♦  (F-F10»)*DT 
VHAX=  PAR  (NPAR+5) 

IF(VX  -GT.  VMAX)  FLOH=  (V  *  F*DT  -  VHAX)/DT 
IF<VX  .LT,  0.)  FLOil=  (V  ♦  F*DT)/ET 
STREAM  (1,K)=  FLOW 
PAR{NPAR)=  V  ♦  (F  -  FLOW)*DT 
VC2=  V*PAR(NPAR+1) 

VC3=  V*PAR  (NPAR  +  2) 

7C4=  V*PAR  (NPAB  +  3) 

DO  170  1=  3,  7 

J=  ICONFG  (I, lONIT) 

IF(J)  150,  170,  160 
C  OUTPUT  STREAM 
150  J=  -J 

STREAM(2,J)=  PAB(NPAB*1) 

STREAM  (3, J)=  PAE(HPAR*2) 

STREAH(4,J)=  PAR(NPAB«3) 

F=  STREAM  (1,0) 

IF(F  .LT.  1.E-20)F=0. 

VC2=  VC2  -  DT*F*STREAH  (2,0) 

VC3=  7C3  -  DT*F*STBEAH  (3,0) 

7C4=  7C4  -  DT*F*STREAM  (4,0) 

GO  TO  170 
C  INPUT  stream 

160  F=  STREAM  (1,0) 

IF(F  .LT.  1.E-20)  F=  0. 

7C2=  7C2  ♦  DT*P*STBEAM  (2,0) 

7C3=  VC3  ♦  DT*F*STREAH  (3,0) 

7C4=  7C4  ♦  DT*F*STRBAM(4,0) 

170  CONTINUE 

7F=  PAB(NPAR) 

IF(?F  .LT.  1.E-20)  GO  TO  180 
PAH  (NPAH+1)  =  VC2/7F 
PAR(NPAR+2)=  VC3/VF 
PAR(NPAB*3)-  7C4/7F 
180  CONTINUE 

0-  NPAR  ♦  3 

1F(ISN  .BQ.  1)  WRITE  (6,  190)  lUNIT,  (PAR  (I)  ,I=MPAR  ,0) 

190  FORMATC  UNIT*, 15,*  OT  70L=  •  ,G  1  0 .3 , 5X  ,  *35=  •  ,G10.  3, 5X, 


SOBROOTINS  P 


C 

C  SIHOLATICN  OP  VOlUMETBIC  PUMP 
C 

C  _ 

C  INPUT  1  I  OUTPUT 

C  STREAM  1  VOLOHBTRIC  |  STREAM 

C  1 - >1  PUMP  I - >  2 

C  I _ 1 

C 

C  PARAHETEE  QUANTITY 

C  1  FLOW  BATE 

C 

C  THE  INPUT  STREAM  MOST  BE  SPECIFIED  FIRST 
C  THE  OUTPUT  STREAM  MUST  BE  SPECIFIED  SECOND 
COMMON  /LOOK/  ISH 

CCMMCN  STREAM(a,  100)  ,  ICONFG  (8 , 1 00)  ,  PAR  (500),  NPAR, 
6  NCALL,  lONIT,  NEATER,  NS,  NEQ,  DESC(5) 

C  ASCERTAIN  IF  READ  DATA,  INITIALIZE,  OB  SIMULATE 
IF  (NCALL)  10,  20,  20 

C  RETURN  IF  MATERIAL  BALANCE  CALCULATIONS 
10  RETURN 

C  INITIALIZE  AND  SIMULATE  ABE  IDENTICAL 

20  K=  ICCNEG(3,IUHIT) 

L=  -ICONFG  (4,I0NIT) 

STREAH(1,K)=  PAB(NPAB) 

STREAM  (1,L)«  PAR  (NPAR) 

STREAM  (2, L)=  STREAM  (2, K) 

STREAM  (3, L)=  STREAM  (3, K) 

STREAM  (4, L)=  STBEAM(4,K) 

IF(ISH  .EQ,  1)  WHITE(6,30)  lUNIT,  (STREAM  (I, L)  ,  1=  1 , 4) 
30  FOBMAT(»  UNIT*, 15,*  P  FLOH=  •  ,G  10.  3 , 5X  , 'SS^  » , 

S  G10.3,5X, *DS=',G10.3,5X,'TOC=' ,G10.3) 

RETURN 


SUBROUTINE  SP 


C 

C  SI1ULATION  OP  STREAH  SPLITTER 

C 

C  _ 

C  INPUT  I  I  OUTPUT 

C  STREAM  I  STREAM  |  STREAMS 

C  1  - >1  SPLITTER  I - >  2  SPECIFIED 

C  I _ I - >  3  DIFFERENCE  (1-2) 

C 

C  PARAMETER  CUANTITY 

C  1  FLOW  RATE  OF  STREAM  2 

C 

C  THE  FEED  STREAH  MUST  BF  SPECIFIED  FIRST 
C  THE  SPECIFIED  STREAH  MUST  BE  SECOND 
C  THE  DIFFERENCE  STREAH  MUST  BE  THIRD 
COKMCN  /LOCK/  ISH 

COMMON  STREAM  (4,  100)  ,  ICONFG  (8,  100)  ,  PAR  (500),  NPAR, 
e  NCALL,  lUNIT,  NFATER,  NS,  NEQ,  DESC(5) 

C  ASCERTAIN  IF  READ  BATA,  INITIALIZE,  OH  SIMULATE 

IF  (NCALL)  10,  20,  20 

C  RETURN  IP  MATERIAL  BALANCE  CALCULATIONS 
10  RETURN 

C  INITIALIZE  AMD  SIMULATE  ARE  IDENTICAL 

C  STREAM  J  IS  THE  INPUT 
C  STREAM  K  IS  THE  SPECIFIED  OUTPUT 
C  STREAM  L  IS  THE  DIFFERENCE  BETWEEN  J  AND  K 
20  J=  ICONPG  (3,IUNIT) 

K=  -ICOHFG  (4,IUNIT) 

L=  -ICONFG  (5,I0NIT) 

F1=  STREAH  (1,J) 

F2=  PAR  (NPAR) 

IF(F1  .LT,  F2)  F2=  Fl 
STRBAM(1,K)=  F2 
STBEAM(1,l)=  FI  -  F2 
DO  30  1-2,4 

STBEAH(I,L)»  S1REAH(I,J) 
oO  STREAM  (I, R)=  STREAH  (I, J) 

IF(ISN.EQ.I)  WHITE(6,40)  IUHIT,F2,  (STREAM  (I  ,  L)  ,1=1, 4) 
40  FOEHAT(*  UNIT*, 15,*  SP  F10W1=» ,G 1 0. 3 ,51, • FLOW2= » , GlO. 3 
&  5X,*SS=»,G10-3,5X,  •DS=»,GlO-3,  5X,'TOC=*  ,G10.3) 

RETURN 


SOBBOUTINE  SC 


SIMULATION  OF  STREAM  SOURCE 


STREAM 

SOURCE 


OUTPUT 

STREAM 


PARAMETER  QUANTITT 

1  TIME  OF  FIRST  PULSE 

2  PULSE  WXDTB 

3  CYCLE  TIME 

4  FLOW  RATE 

5  TSS  CONC. 

6  TDS  CONC. 

7  TOC  CCN. 

COMMON  /LOOK/  ISW 

COMMON  STREAM  (4,  100)  ,  ICO NFG  ( 8 , 1 00)  ,  PAR  (500)  ,NPAR 
NCALL,  lUNIT,  NFATBR,  NS,  NEQ,  DESC  (5) 
COMMON  /CTIME/  TIME,  FTIME,  DT 
COMMON  /HATBAL/  BALNCE(4),  AMT1N(4),  AMTOUT(4) 
ERTAIH  IF  READ  DATA,  INITIALIZE,  OR  SIMULATE 
IF(NCAII)  10,  20,  20 


ASCERTAIN  IF 
IF(NCAII) 
ERROR  CHECK 
10 

IF(J  .GT. 


10  J=  -ICONFG  (3,1  UNIT) 

IF(J  .GT.  0)  RETURN 
HBITE(6,21)  lUNIT,  J 

21  FORMAT (*  UNIT*, 14,',  SO,  OUTPUT 

6  •  SPECIFIED  AS  AN  INPUT  STREAM  (',13,' 
NFATER=  NFATER  ♦  1 
RETURN 

INITIALIZE  AND  SIMULATE  ABE  IDENTICAL 

20  J=  -ICONFG  (3, lUNIT) 

STREAM  (2, J)=  PAE(NPAR+4) 

STBEAH(3,J)=  PAR(NPAR*5) 

STRBAH(4,J)=  PAR(NFAR*6) 

TE=  TIME  -  PAE(NPAR) 

TE=  TE  ♦  DT 
TCY=  EAR(NPAB*2) 

NCY=  TE/TCY  ♦  0.0001 
TR=  TE  -  TCY*NCY 
IP(TE  .LT.  0.)  GO  TO  50 
IF(TR  .IT.  PAR(NPAR  +  1))  GO  TO  60 
1F(TR  .LE.  PAR(NPAR*1))  GO  TO  40 
IP((TH-DT)  .GT.  PAR(NPAB  +  1))  GO  TO  30 

FBACT=  (PAR(NPAB*-1)  -  (TR-DT))/DT 
GO  TO  70 

30  FRACT=  0. 

GO  TO  70 

40  PEACT=  TR/DT 

GO  TO  70 


OUTPUT  STREAM  IS 

(•  ,13,*)  •) 


IP(TE 
IF  (TR 
IF  (TR 


SDBBOUTINE  SM 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 


SIMULATION  OF  STREAM  MIXER 


INPUT  I  I  OUTPUT 

- >1  STREAM  I 

- >J  MIXEF  1 - > 

- >, _ , 

NO  PARAMETERS  REQUIRED 

OUTPUT  STREAM  MUST  BE  SPECIFIED  LAST 


COMMCN  /LOCK/  ISii 

CCMMCN  STREAM  (4, 100)  ,  ICON  EG  (8,  1 00)  ,  PAfi(500),  NPAR, 
&  NCALL,  lUNIT,  NEATER,  NS,  NEQ,  DESC(5) 

ASCERTAIN  IF  READ  DATA,  INITIALIZE,  OE  SIMULATE 
IP(NCALL)  10,  20,  20 
RETURN  IF  MATERIAL  BALANCE  CALCULATIONS 
10  RETURN 

INITIALIZE  AND  SIMULATE  ABE  IDENTICAL 
20  FJ=  0, 

F=  0. 

FC4=  0. 

FC2=  0. 

FC3=  0. 


30 

40 


50 

IP 

60 

70 

60 


DC  30  1=3,7 
J  = 

IF(J  .LT.  0) 
FI= 
F  = 
FC2= 
FC3= 
FC4= 
J= 

STREAM  (1  ,J)  = 
IF(F  .LT.  1 


ICONFG  (I,IUNIT) 

GO  TO  40 
STREAM  (1,J) 

F  ♦  FI 

FC2  ♦  FI*STBEAH  (2,J) 
FC3  ♦  EI*STREAM  (3,  J) 
FC4  ♦  FI*STREAM  (4,J) 
-J 
F 

E-20)  GO  TO  50 


FC2/F 

FC3/F 

FC4/F 


SET  CONCENTRATIONS  ACCORDINGLY 


STREAM  (2,J)  = 

STREAM  (3,J)  = 

STREAM  (4,J)  = 

GO  TO  70 
CONTINUE 
FLOW  IS  ZERO, 

DO  60  1=2,4 
STREAH(I,J)  =  0. 

CONTINUE 

IF(ISH  -EQ.  1)  HRITE(6,80)  I  UNI  T  ,  (STRE  AM  (1 ,  J)  ,  1=  1 , 4) 
FORMATC  UNIT', 15,'  SH  FLOW=' ,G  10.  3  ,5X  ,  *  SS  =  ' , 
i  G10.3,5X,  •DS=»,G10.  3,  5X,  *  TOC=*  ,  G  10- 3) 


RETURN 

END 
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SUBROUTINE  UF 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


OLTRAFILTEATION  MODEL  INTEHFACE  TO  WPE  SIMULATOR 


3 


_  _  PERMEATE 

,  -  -  - >  1 

FEED  1  ULTRAFILTRATION  | 

- >1  I 

I  MODULE  I  CONCENTRATE 

I _ I - >  2 


FABAMETER 

1 

2 

3 

4 

5 

6 


QUANTITY 

hUMBEB  OF  TUBES 

OPERATING  TEMPERATURE 

PRESSURE  DROP  ACROSS  THE  MEMBRANE 

AT  THE  INLET 

PRESSURE  DROP  DOHN  THE  TUBE 
TUBE  DIAMETER 
TUBE  LENGTH 


THE  PERMEATE  STREAM  MOST  BE  SPECIFIED  FIRST 
THE  CONCENTRATE  STREAM  MUST  BE  SPECIFIED  SECOND 
THE  FEED  STREAM  MOST  BE  SPECIFIED  LAST 
REAL  NTPIDT 
DIMENSION  PERMN(IOO) 

COMMON  /LOOK/ISN 

CCHMCN  STEEAH{4, 100)  ,  ICONFG  (8 , 1 00) ,  PAR  (500),  NPAR, 
e  NCALL,  lUNIT,  NFATER,  NS,  NEQ,  DESC(5) 

COMMON  /UFPARH/  PLEN,  DTUBS,  NT,  JPRINT,  JNRITB 
COMMON  /PARMUF/  TEMP,  VISC,  DENB,  DPZEBO,  PDROP 
IF(NCALL)  10,  30,  90 

THERE  ARE  NO  MATERIAL  BALANCE  CALCUIATIONS.  HOWEVER, 

THE  STREAM  SPECIFICATIONS  ARE  CHECKED  FOR  CONSISTENT 

INPOT/OOTPUT 

10  CONTINUE 

SOME  ERROR  CHECKING 

IF  (ICONFG  (3,I0NIT)  - LT.  0)  GO  TO  30 
iRITE(6,20)  lUNIT,  ICONFG  (3  , 1  ONI  T) 

20  FORMAT (6X, •♦•♦♦♦ERROR,  UNIT»,I5, FIRST  STREAM  IN  *, 
6  'CONFIGUBATICN  IS*, 15,*,  MUST  BE  THE  PERMEATE  *, 

6  •  (OUTPUT).') 

NFATEB=  NEATER  ♦  1 

30  IP  (ICONPG(a,IONIT)  .  LT.  0)  GO  TO  50 
WHITE  (6,40)  lONIT, ICONFG  (4,IUNIT) 

40  FORMAT (6X, •♦♦♦♦♦ERROR,  UNIT', 15,*.  SECOND  STREAM  IN  ', 

5  'CONFIGURATION  IS ',15,'.  MUST  BE  THE  CONCENTRATE  ', 

6  '(OUTPUT).') 

HFATEB=  NEATER  ♦  1 

50  IF  (1C0RFG(5,IUNIT)  .  GT.  0)  GO  TO  70 
WRITE  (6,60)  lUNIT, ICONFG  (5,  lUNIT) 

60  FORMAT (6X,' ♦♦♦♦♦ERROR,  UNIT', 15,'.  THIRD  STREAM  IN  ', 
6  'COBFIGURATICN  IS', 15,'.  MUST  BE  THE  CONCENTRATE  ', 

6  •  (OUTPUT). *) 
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MFATEH=  NFATER  ♦  ^ 

70  CCNTINUE 
RETOFN 
80  CONTINUE 

C  INITIALIZATION  SAME  AS  SIMULATE 
PERMN  (lUNIT) =  0. 

C  BETUBN 

90  CCNTINUE 

C  SET  UP  COMMON  VARIABLES 

NT=  PAR  (NPAB) 

TEMP=  FAE(NPAR  +  1) 

DPZEEO=  PAR  (NPAR4-2) 

PDROP=  PAR  {NPAR*3) 

CTUBE=  PAB(NPAF«-4) 

PLEN=  PAR(NPAB+5) 

C  SIMULATE 

IPERM=  -ICCNFG{3,I0NIT) 

ICCNC=  -ICONFG  (4,  lUNIT) 

IFEEO=  ICONFG  (5,I0NIT) 

C  GET  READY  TO  CALL  UFSS 
KU1TRA=  -1 

CS=  STREAM  (2,IFEED) 

CD=  STREAM  (3, IFEED) 

CC=  STREAM  (4,IFFED) 

FLOB=  STREAM  (1,IFEED) 

PERM*  PERMN  (lUNIT) 

IP(ISW  .GE.  1) 

6  iEITE(6,100)  1PERH,ICONC,IFEED,CA,CC,FLOM 
100  FORHAT{*  $$$  OF  DEBUG • ,6G 1 0. 3) 

CALL  UFSS (KULTRA,CS,CC,CC, FLOW, TOTALA, TOTALS, TOTALC, 
&  PERM) 

PERMN (lONIT) =  PERM 

TOTAI=  TOTALA  ♦  TOTALS  ♦  TOTALC 
STREAM  (3,IPEBM)=  TOTAIA/TOTAL*DENB 
STREAM {4,IPEBM) =  TOTAIC/TOTAL*DENB 
STREAM<1  ,IPEBH)=  TOTAl/DENB 
C  NO  SUSPENDED  SOLIDS  PASS  TBROUGH  UF  MEMBRANE 
STREAM (2, IPEBM) =  0. 

C  CHECK  FOB  ERROBS 

IF(K0LTBA  .LT.  0)  GO  TO  120 
BBIIE(6,110)  KOLTRA 

110  FORMAT  (*  ♦♦♦♦♦EBROR  IN  OF  WHILE  CALLING  UFSS.  •, 

8  *  K0LTRA=*,I5) 

NFATER=  NFATER  ♦  1 

120  CONTINUE 

C  GET  FLOW  RATE  OF  CONCENTRATE  EY  STEADY  STATE  MATERIAL 
C  BALANCE 

STREAM  {  1, ICONC)  =  STREAM  (1  ,IFEED)  -  STREA  M  (1  ,  IPERM) 

C  GET  CONCENTHATICN  OF  CONCENTRATE  BY  COMPONENT  BALANCE 
DO  130  1=2,4 

STREAH(I, ICONC)  =  (STREAM  (I,IFEED)  ♦STREAM  (1  ,IFEED)  - 
8  STBBAM  (I,  IPEBM)  ♦STREAM  ( 1 ,  IP  EEM)  ) /STR  BAM  ( 1 ,  ICONC) 
130  CONTINUE 

IF(ISi  .EQ.  1)  HRITE(6,140)  lUNIT,  (STREAM  (I,  IPERM)  ,  I 


K  (STFEAB(I,ICCNC) ,1=1,4) 

140  FOHBATC  UNIT', 15,'  UF  PEHB  FLOH=»  ,  G 10.  3,  5X,  •  SS  =  ' , 
8G10.3 , 5X, '05=' ,G10. 3,5X, 'TOC=' ,G 10, 3/15X, 'CONC  FLOW= 
&G10.3,5X, •SS=',G10.3,5X, '03=' ,G 1 0. 3 , 5X, • TOC= • , GIO. 3) 
BETUEN 
END 


SOBHOUTINE  U  FSS  (KDITBA ,  SS,  DS ,TC ,  F  ,TOT A1  .\,TOT ALB, 

5  TOTALC,PEBM) 

C 

C  THIS  SUEBOOTINE  PEBFORHS  THE  STEADY  STATE  CALCULATIONS  FO 
C  MULTIPLE  TUBE  ULTRAPILTRAT ION  MODULES. 

C  THIS  ROUTINE  ASSUMES  COMPLETE  REJECTION  OF  SUSPENDED  SOLI 
C  AND  NO  REJECTICS  OF  DESOLVFD  SOLIDS. 

C  SEE  THE  REPORT  BY  ABBOTT  AND  STERLING  ON  THE  MODIFIED  OF/ 
C  TUBULAR  HO/  GEL  MODEL  FOR  A  DISCRIPTION  OF  VARIABLES 
C 

REAL  NTPIDT 

COMMON  /UFPARM/  PLEN,  DTOBE,  NT,  JPRINT,  JHHITE 
COMMON  /OPFIT/  GAMI,  GAM2,  GAMINF,  Cl,  C2,  CINF 
COMMON  /PARMOF/  TEMP,  VISC,  DENB,  DPZERO,  PDROP 
COMMON  /CTIME/  TIME,  FTIME,  DT 
DATA  PIE/3.141593/ 

NTPIDT=  NT*DTOBE*PIE 
DPBAR=  DPZERO  -  0.5*PDROP 
GAMMA-  GAMINF 
IF(GAM2*PERM  .LT.  174.) 

6  GAMHA=  GAMINF  ♦  (GAM  1-GA HINF)  *EXP  (-GAM2  ♦PERM) 

TOTALB=  PLEN*GAMMA*DPEAR^NTPIDT 

FB=  (TOTALB/DENB) 

TOTALA=  DS^FB 

TOTAL®  TOTALA  ♦  TOTALS 

C-  CINP 

IF(C2*PERM  .LI.  174.)  C=  CINF  ♦  (Cl  -  CINF)  *EXP (-C2*PE 
TOTALC®  PLEN*NIPIDT*TC*TOTAL*C/ (TOTAL  ♦  DENB*C) 

PERM®  PERM  +  FE^DT 
10  IF  (JPRINT  .LE.  0)  GO  TO  50 
JPRINT®  JPRINT  -  1 

iBITE(6  ,20)  SS,  DS,TC,  F,  DPZERO,  PDROP,  PLEN  ,  DT,  DTOBE, NTPI 
20  FORMAT  ('  SS®  »,G12.5,*  DS=  »,G12.5,  •  TC=  • 

♦  »  F=  ' ,G12.5/ 

1  •  DPZERO®  ',612.5,*  PDROP®  ',012.5,'  PLEN®  ',G12.5 
♦,G12.5/ 

2  '  DTOBE®  *,G12.5,»  NTPIDT®  *,G12.5,*  DENB®  *,G12.5 
3,G12.5) 

RRITE  (6,30)  GA  B 1,  GAH2,  GAMINF,  Cl,  C2,  CINF 
30  FORMAT  (*  GAMI®  *,G12.5,*  GAH2®  *,G12.5,  '  GAMINF®  ' 

*  •  Cl®  *,G12.5,»  C2=  *,G12.5,*  CINF®  ',G12.5 

irBITE(6,40)  DFEAR,  GAMMA, C,  PERM, TOTALA, TOTALS, TOTALC 

40  FORMAT  (*  DPBAR®  *,G12.  5,  '  GAMMA®  ',G12.5,  '  C®  *  ,G 

1  '  PERM®  *,G12.5/*  TOTALA®  ',G12.5,'  TOTALS®  ',G12.5 

2  •  TOTALC®  *,G12.5) 

50  RETORN 

END 


n  n  n  n 


SUBROUTINE  OOZOHE  (ZI NO,C ZI NO, TOCINO ,G , ? , ZOUT , CZOUT , 

&  TOCCOT) 

THIS  SUBROUTINE  PERFORMS  THE  STEADY  STATE  CALCOLATIOS 
FOR  THE  ULTRAVIOLET  OZONATION  UNIT 

REAL  KLA,  KHENRV,  KRATE,  KDCOMP 
COMMON  /DELTA!/  DT 
COMMON  /UVL/  UVIITE 

COMMON  /OVFIT/  KHENRY,  ECOZ,  ETOC,  KRATE,  KDCOMP, 

6  EOZD,  UVEFCT,  ALPHA,  FN,  ^PRIME 

COMMON  /UVPARM/  CAREA,  PARBA,  H,  PHO,  PRESS,  TEMP,  NW 
DIMENSION  ZOUT(IO),  CZOUT(IO),  TOCOUT{10),  DCZBR(IO), 
6  DTOCER(IO) 

COMMON  /STAGES/  NSTAGE, PRECON 
DATA  IFIEST/O/ 

EQUIVALENCE  (NNN,IEMD) 

NNM=  NSTAGE 

IF(PBECCN  .NE.  0.0)  NNN=  NSTAGE  ♦  1 
IF(IPIBST  .NE.  0)  GO  TO  20 
C  FOB  FIRST  ITERATION,  SET  OP  INLET  GAS  CONCENTRATION 
C  TO  PRE-CONTACTOR 
I FIRSTS  1 
TZOOT=  0. 

DO  10  1=  1,  NSTAGE 
10  TZOOT=  TZOOT  ♦  ZOUT (I) 

ZeAR=  TZOOI/NSIAGE 
20  CONTINUE 
UVLITE=  0. 

C  CALL  FOR  PRE-CONTACTOR 

CALL  OSTAGE(ZEAa,  CZINO,  TOCINO,  NSTAGE*G,  F, 

Z  ZOUT  (NSTAGE^l)  ,  DCZBR  (NSTAGE  +  l)  ,  DTOCBR  {HSTAGE+ 1)  , 

6  PAREA,  CZOUT{NSTAGE*l)  ,  TOCOOT  ( NSTAGE*  1)  ) 

1ZOOT=  0. 

C  SET  OP  UV  RADIATION  EFFECT  ON  REACTION  RATE  CONSTANTS 
OVLITE=  UVEFCT 
DO  60  1=  1,  NSTAGE 
C  SET  OP  INPUTS  TO  TEE  NEXT  STAGE 
ZIN=  ZINO 
N=  I  -  1 

IP(I  .HE.  1)  GO  TO  30 
N=  NSTAGE  *  1 

1F(PBEC0N  .BQ.  0.0)  GC  TO  40 
30  CONTINUE 

CZIN=  CZOUT(N) 

TOCIN=  TOCOOT  (N) 

GO  TO  50 
40  CGNTIMOE 

CZIN-  CZINO 
TOCIH=  TOCINO 
50  CONTINUE 

CALL  USTAGE(2IN,  CZIN,  TOCIN,  G,  F,  ZOOT{I),  DCZBP  (I) 
S  DTOCBR(I),  CAREA,  CZOUT  (I)  ,  TOCOOl  (I)  ) 


TZOUT=  TZOOT  7001(1) 

60  CCNTINUE 

C  DETEBMINE  NEXT  GAS  CONCENIHA TION  TO  THE  PRE-CONT ACTOB 
ZEAR=  TZOUl/NSTAGE 
DO  70  1=  1,  I  END 
C  TAKE  ONE  INIEGHATION  STEP 

CZOOT<I)=  CZ0(1T(I)  ♦  DCZBR  (I)  *01 

70  TOCOUT(I)=  TOCCUT(I)  ♦  DT0CBB(1)*DT 
BETUBN 
END 


131 


SUBROUTINE  GM 

OLTRAFILTRATION  GEL  MODEL  INTERFACE  TO  WPE  SIMULATOR 

_  PERMEATE 


FEED  I 

3 - >, 


GEL  MODEL 
ULTRAFILTRATICN 
MODULE 


I  CONCENTRATE 


PARAMETER 

1 

2 

3 


ijUANTITY 

NUMBER  OF  TUBES 

OPERATING  TEMPERATURE 

PEESSOEE  DROP  ACROSS  THE  MEMBRANE 

AT  THE  INLET 

PRESSURE  DROP  DOWN  THE  TUBE 
TUBE  DIAMETER 
TUBE  LENGTH 


THE  PERMEATE  STREAM  MOST  NE  SPECIFIED  FIRST 
THE  CONCENTRATE  STREAM  MUST  BE  SPECIFIED  SECOND 
THE  FEED  STREAM  MOST  BE  SPECIFIED  LAST 
REAL  NTPIOT 
DIMENSION  PEfiMN(IOO) 

COMMON  /LCCK/ISN 

COMMON  STREAM  (4«  100)  «  ICONFG  (8,  1 00)  ,  PAR  (500)  ,  NPAR, 

&  NCALL,  lUNlT,  NFATER,  NS,  NEQ,  DESC(5) 

COMMON  /GHPARH/  PLEN,  DTOBE,  NT,  JPRINT,  JWRITE 
COMMON  /PARHGH/  TEMP,  VISC,  DENB,  DPZERO,  PDflOP 
IF(NCALL)  10,  80,  90 
10  CCNTINOE 

THEBE  ARE  MO  MATERIAL  BALANCE  CALCULATIONS.  HONBTER,  THE 
STREAM  SPECIFICATIONS  ARB  CHECKED  FOR  CONSISTENT 
INPOT/OOTPOT 

IF  (ICONFG(3,IONIT)  .  LT.  0)  GO  TO  30 
HRITE(6,20)  lONIT,  ICONFG  (3  ,IUNI  T) 

20  FORMAT (6X,* ♦♦♦♦♦ERROR,  UNIT', 15, ».  FIRST  STREAM  IN 
fi  'CONFIGUBATICN  IS',I5, MUST  BE  THE  PERMEATE  ', 

&  '(OOTPOT).') 

NFATEB-  NFATER  ♦  1 

30  IF  (ICONFG  (4,I0NIT)  .  LT.  0)  GO  TO  50 
MRITB  (6,  40)  lUNIT, ICONFG  (4,I0NIT) 

40  FORMAT (6X, •♦♦♦♦♦ERROR,  UNIT', 15, ».  SECOND  STREAM  IN', 
&  '  CONFIGURATION  IS',I5, '.  MUST  BE  THE  CONCENTRATE', 
6  •  (OUTPUT).') 

BFATEB=  NFATER  ♦  1 

50  IF  (ICONFG  (5,10 MIT)  .GT.  0)  GO  TO  70 
WRITE  (6,60)  lUNlT, ICONFG  (5,IUNIT) 

60  FORMAT (6X,' ♦♦♦♦♦ERROR,  UNIT', 15,'.  THIRD  STREAM  IN', 
e  '  CONFIGUBATICN  IS',I5, '.  MUST  EE  THE  FEED  ', 

C  '  (INPUT).') 

INCREMENT  NUMBER  OF  FATAL  ERRORS 
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NFATEB=  NFATEB  ♦  1 
70  CONTINUE 
BETOSN 
80  CONTINUE 

C  INITIALIZATION  3AHE  AS  SIMULATE 
PERHN  (lUMIT)  =  0. 

90  CONTINUE 

C  SET  OP  COflMON  VABIABLES 
NT=  PAB  (NPAB) 

TEBP=  PAB(NPAB«1) 

OPZEBO=  PAR(NPAB4^2) 

POEOP=  PAB(NPAB4^3) 

DT0BE=  PAG(NFAR*4) 

PLEN=  PAB(NPAB>5) 

C  SINOLATE 

IPE8H=  -ICONFG  (3,IONIT) 

1C0NC=  -ICONFG(4,IONIT) 

IFEED=  ICONFG  (5,IDNIT) 

C  GET  READI  TO  CALL  GNSS 
KaLTBA=  -1 

CS=  SIREAH(2,IFEID) 

CD=  STBEAH  (3,IFEED) 

CC=  STREAM  (4,IPEED) 

PL01=  SIBEAH  (1  ,1FF1C) 

PEBS=  PEBMN(IONIT) 

1F(ISH  .GE.  1) 

6  WBITE(6,100)  IPEBH,  ICONC,  IFEED,  CA,  CC,  FLOW 
100  POBHAT(»  11$  G«  DEBUG*, 6G13.5) 

CALL  G.1SS  (K0LTBA,CS, CD, CC, FLOW, TOTALA, TOTALS, TOTALC, 

&  PERN) 

PERHN  (IUNIT)=  PEEH 

TOTAL=  TOTALA  ♦  TOTALS  ♦  TOTALC 
STBEAH(3,IPEBn) =  TOTA lA/IOTAL*DE NB 
STBEAH  (4  , IPEBH)  =  TOTALC/TOT  AL*DENB 
STREAM  (1,IPERfl)=  TOTAL/DENB 
C  NO  SUSPENDED  SOLIDS  PASS  THBOUGH  UF  HEHBBANE 
STBEAN(2, IPEBH)  =  0. 

C  CHECK  FOB  EBBOBS 

IF(K0LTBA  .LT,  0)  GO  TO  120 
RBITE(6,110)  KOLTRA 

110  FOBHATt*  ♦♦♦♦*IBBOB  IN  GEL  WHILE  CALLING  GHSS.*, 

6  •  KULTBA=',I5) 

HFATEB=  NFATEB  ♦  1 
120  CONTINUE 

C  GET  FLOW  RATE  OF  CONCENTRATE  BY  STEADY  STATE  MATERIAL 
C  BALANCE 

STBEAH  (1, ICONC)  =  STREAM  ( 1 ,  I  FEED)  -  STB  EAH  (1 ,  IPERH) 

C  GET  CONCENTBATICN  OF  CONCENTRATE  BY  COMPONENT  BALANCE 
DO  130  1*2,4 

STREAM (I, ICONC) =  (STBEAH  (I, IFEED) ♦STREAM  (1, IFEED) - 
e  STREAM  (I,  IPEBH)  ♦ST  BEAM  {  1,  IP  ERH)  )  /STREAM  (  1 , ICONC) 

130  CONTINUE 

IF(ISW  .EQ.  1)  HFITE(6,140)  lUNIT,  (STREAM  (I ,  IPERH)  ,  1=  1 
e  (STBEAH  (I,  ICONC)  ,1*1,4) 


140  POPf1AT(*  OMIT', 15, »  GH  PEfiH  FLO  8=  •  ,G  10. 3 ,5  X  ,  *35=  •  , 

5  G10.3,5X,*DS=',G10.3,5X,'TOC=' ,G10.3/15X,'CONC  FLOB=' 

6  ,G10.3,5X,'SS=*,G10.3,5X,  •  DS='  ,G10.  3,  5X,  •TOC  =  '  ,G10.3) 
fiETORN 


134 


SOBROUTIHE  GflSS  (KULTR  A, SS,  DS,  TC,  F,  TOTALA,  TOTALS  , 
6  TOTALC,PEH(!) 


C 

C  THIS  SUBROUTINE  PERFORMS  THE  STEADY  STATE  CALCULATIONS 
C  FOR  MULTIPLE  TUBE  DLTEAFILTRATI ON  MODULES  USING  THE  GEL 
C  MODEL 

C  THIS  ROUTINE  ASSUMES  COMPLETE  REJECTION  OF  SUSPENDED 
C  SOLIDS 

C  SEE  THE  REPORT  BY  ABBOTT  ANC  STERLING  UN  THE  MODIFIED  UF/ 

C  TUBULAR  RO/  GEL  MODEL  FOP  A  DISCHPTION  OF  VARIABLES 

C 

REAL  JA,JE,JC,NTPIDT 

COMMON  /GMPAHM/  PLEN,  DTUBF,  NT,  JPEINl,  JHRITE 
COMMON  /PARMGM/  TEMP,  VISC,  DENB,  DPZERO,  PDflOP 
COMMON  /CTIME/  TIME,  FTIME,  DT 
DATA  NSTEPS/10/ 

DATA  NDIMI/IOO/ 

CA=  DS 
CC=  TC 

PI=  3.1415S3 

C  DETERMINE  AXIAL  STEP  SIZE  FROM  THE  TUBE  LENGTH  AND 
C  NUMBER  OF  INTEGRATION  STEPS 
DZ=  PLEN/NSTEPS 
NNRITE=  0 

AEEA=  0.25*PI*DTOBE*DTBEE 
HTPIDT=  NT*DTOBE*PI 
TOTALA=  0. 

T0T1LB=  0. 

TOTALC=  0. 

DO  30  I=1,NSTEES 

Z=  (1-1)  *DZ  ♦  0.5*DZ 

C  EVALUATE  PRESSURE  DROP  AT  MIDPOINT  OF  INTEGRATION  STEP 
DBLP=  DPZERO  -  PDROP*Z/PIEN 
V=  F/AREA 
KGETJ=  0 

C  CALI  GETJ  TO  GET  THE  FLUXES 

CALL  GETJ  (CA,CC,V,DELP,JA,JB,JC,  KGETJ) 

C  CALCULATE  DBBATIVES  FOR  THIS  STEP 

DF=  -NTPIDT*(JA  ♦  JB  ♦  JC)/DENB 
DFCA=  -»TPIDT*JA 
DFCC=  -NTPIDT*JC 
C  PEBFOBH  INTEGBATICN 
FHEH=  F  ♦  DP*DZ 

CA=  (F*CA  ♦  DFCA*DZ) /FNEH 
CCa  (F*CC  ♦  DFCC*DZ) /FNEi 

C  UPDATE  CUMULATIVE  PEBHEATE  FLOWS  OF  A,  B,  AND  C 
TOTALA=  TOTALA  ♦  JA*HTPIDT*DZ 
TOTALS*  TOTALS  ♦  JB**1PID1*DZ 
TOTALC*  TOTALC  ♦  JC*HTPIDT*DZ 
P»  FMEH 

1F(JPBIHT  .LB.  0)  GO  TO  30 
C  DETBBHINB  IF  ANT  OUTPUT  IS  TO  BE  PRODUCED 
IBBITB*  NHRITE  ♦  1 
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IF(IIIIBITE  .LT.  JPRINT)  GO  TO  30 
HWRITE=  0 

HEITE(b,20)  I,  Z,  CA,  CC,  JA,  JB,  JC,  F, 

5  TCTALA,  TOTALS,  TOTALC 

20  FORSATC  STEP  Z=  »,G13.5,'  CA=  *,G13.5, 

S*  CC=  ',013.5/'  JA=  ',G13.5,'  JB=  ',013.5,'  JC=  • 

5  '  F=  ',013.5/'  TOTALA=  ',013.5,'  TOTALB=  ',013.5, 

6  '  TOTALC=  ',013.5) 

30  CONTINUE 

DS=  CA 
TC=  CC 

PEHf1=  PERM  *  (TOTALB/DENB)  ♦DT 
IF  (JPRINT  .EQ.  -999)  HBITF(6,20)  I,  Z,  CA,  CC,  JA,  JB 
&  JC,  F,  TOTALA,  TOTALS , TOTALC 

RETURN 


n  n  n  n  n 


SUBROUTINE  GETJ  (C A1 , CC1 , V, DELP , J A , JB , JC , KGET J) 

THIS  IS  THE  GEL  MODEL  FOG  THE  ULTRAFl LTHATION  UNIT 
SEE  PEPOFT  BY  SMITH  AND  STAFKS  ON  TEE  UF  UNIT  FOR  A 
DISCBIPTICN  OF  VARIABLES 

REAL  NF,  JA,  JD,  JC 

EEAL*8  JB1,  JE2,  KA,  KC,  JDA,  DAX,  HE,  SC,  SH,  CA2, 
6  CA2Bia,  CA2SML,  CA3,  CA3EIG,  CA3SML,  PI, 

6  POSMOT,  CEQ2,  CEQ3,  DELPl,  P12,  PI3,  CA3P, 

6  CA2P,  XA1,  XC1,  CX,  BX,  CCGEL 

COMMON  /GHPARM/  PLEN,  DTUDE,  NT,  JPRINT,  JIRITE 
COMMON  /PARHGH/  TEMP,  VISC,  DENB,  DPZERO,  PDROP 
COMMON  /GMFIT/  GAMMA,  API,  BPI,  B,  C,  RATIO,  DCX, 

&  ADAX,  BDAX,  CDAX,  CAGSI 

DATA  MCNT2,  MCNT3/10,  10/ 

POSMOT  (C)=  API*TEMP*C*(1.D0  ♦  BPI*C)**2 
C  CHECK  FOR  REASONABLE  INPDT  VALUES. 

1F(CA1  .LI.  0.0  .OR.  CA1  .GT.  DENB)  GO  TO  10 
IF(CC1  .LT.  0.0  .OB.  CC1  .GT.  DENB)  GO  TO  10 
IF  (V  .LT.  0.0)  GO  TO  10 
GO  TO  30 
10  CCHTINOE 

C  IF  UNREALISTIC  VALUES  FROM  GMSS  ARE  ENCOUNTERED,  PRINT 
C  AN  ERROR  MESSAGE  AMO  DUMP  THE  MAJOR  VARIABLES  IN  GETJ. 
C  THEN  RETURN. 

WRITE  (6,20)CA1,CC1,V 

20  FORMAT  (•  IN  GETJ  ...UNREALISTIC  INPUT  VALUES.*/ 

6  '  CA1=  *,G15.5,*  CC1=  *,015.5,*  V=  *,G15.5) 
KGETJ=  1 

IF(JWHITE  .LE.  0)  JHRITB=  1 
GO  TO  160 
30  CONTINUE 

C  CALCULATE  BULK  HASS  FRACTIONS 
XA1=  CAI/DENB 
XC1=  CCI/DENB 

C  CALCULATE  REYNOLDS  NUMBER 
EE=  DF^V/flSC 
REgi3=  .0096*BE**.913 
C  CALCULATE  HASS  TBAHSPER  COEFFICIENTS 
XXX=  XA1*100. 

0DD=  ADAX«XXX  ♦  BCAX*EXP  (-CDAX*XXX) 

DAX=  DDD*1.E-10 
SC=  VISC/DAX 
SH=  BB913*(SC**.346) 

KA=  SH*OAX/DTUBE 

SC=  VISC/DCX 

SH*  RE913*(SC**,346) 

KC*  SH*DCX/DTnBE 

C  RESET  KGBTJ  TO  NON'ERBOR  CONDITION  IF  NEEDED. 

IF(R6ETJ  .IE.  0)  GO  TO  40 
KGETJ*  0 
40  CONTINUE 


USE  INTERVAL  HALVING  TO  FIND  THF  LARGEST  POSSIBLE  VALUE 
OF  CA2,  KEHEM3ERING  THAT  (DELP  -  DELPI)  MUST  ALWAYS  BE 
POSITIVE. 

CA2BIG=  DENB 
CA2SHL=  0. 

USE  CA2  AS  A  TEMPORARY  STORAGE  LOCATION  FOR  NOW 
CA2=  CAl  ♦  CC1*RATIO 
PI2BIG=  PCSMOT(CA2)  ♦  DEL? 

DO  60  1=1,20 

CA2=  0.5*(CA2EIG  ♦  CA2SML) 

PI2=  PCSMCT<CA2) 

IF(PI2  .GI.  PI2BIG)  GO  TO  50 
CA2SML=  CA2 
GC  TO  bO 
50  CA2BIG=  CA2 
60  CONTINUE 

SET  UP  LIMITS  FOR  CUTER  LOOP  TO  FINE  CA2 
CA2S!IL=  CAl 
DO  130  1=1,MCNT2 

CA2=  (CA2BIG  ♦  CA2SML)/2. 

JDA=  KA*(CA2  -  CAl) 

SET  OP  LIMITS  FOE  INNER  LOOP  TO  FIND  CA3 
CA3BIG=  CAl 
CA3SML=  0. 

DO  100  II=1,HCNT3 

CA3=  0.5D0*(CA3BIG  ♦  CA3SHL) 

JE1=  B*DENB*  (CA2/CA3  -  1.0) 

CC2=  (JB1*XC1  ♦  KC*CC1)/ 

&  (KC  ♦  C*(1.  -  DENB*C/(JB1  ♦  DENB*C))) 

CC3=  DENB*C*CC2/(JB1  ♦  DENB*C) 

CEQ2=  CA2  ♦  CC2*RATIO 
PI2=  POSHOT(CEQ2) 

CEQ3=  CA3  ♦  CC3*RATIO 
PI3=  POSMOT  (CEQ3) 

DELPI=  PI2  -  PI3 

JB2=  GAMMA*  (DELP  -  DELPI) 

CA3P=  B*DEHB*CA2/(JB2  ♦  E*DEMB) 

IF(JB2  .LT.  0.0)  GO  TO  70 
IF(CA3  .GI.  CA3P)  GO  TO  80 
70  CA3SHL=  CA3 
GO  TO  90 
60  CA3BIG=  CA3 
90  CONTINUE 
100  CONTINUE 

JB=  0.5D0*(JB1  ♦  JB2) 

CA2P=  (JB*XA1  ♦  KA*CA1  ♦  B*CA3)/(KA  ♦  B) 

IF(CA2  .GI.  CA2P)  GO  TO  110 
CA2SHL=  CA2 
GO  TO  120 
110  CA2BIG=  CA2 
120  CONTINUE 
130  CONTINUE 

JA=  B*(CA2  -  CA3) 

JC=  C*(CC2  -  CC3) 


CC2= 


CC3= 


h 


IF(CAGEL  .LT.  0.)  GO  TO  150 
IF(CA2  .LE.  CAGEL)  GO  TO  150 
JEA=  KA*(CAGEL  -  CAl) 

BX=  JEA*(1.  -  E/KA) 

CX=  BX*CAGEL*JDA 

JA=  (-BX  ♦  DSQBT(BX*BX  -  4.  ♦CX)  )  *0. 5D0 
JB=  (JA  ♦  JCA)/XA1 
CA3=  EENB*JA/JB 
CX=  C/(1.  ♦  DBNB*C/JB) 

CCGEL=  (JB*XC1  ♦  KC*CC1)/(CX  *■  KC) 

JC=  CX*CCGEL 
JDC=  KC*(CCGEL  -  CCl) 

CC3=  DENB*JC/JB 
CEQ2=  CAGEL  ♦  CCGEL*BATIO 
PI2=  POSMOT(CEQ2) 

CEQ3=  CA3  ♦  CA3  ♦  CC3*BATIO 
PI3=  PCSHCT  (CEQ3) 

DELPI=  PI2  -  PI3 

Q=  GA«nA*(DELP  -  DELPI)/JB 
IF(Q  .LT.  1.)  HFITE(6,140)  Q 
POBHAT(*  IN  GETJ  ...  C=  ',013.5,*  IS  LESS 
CONTIHOE 
COHTIMOE 


PI3  = 
DELPI= 
Q= 


IS  LESS  THAN 


THIS  SECTION 


HfilTE  STATEMENTS  PBOVIDES  A  DONE  OF  HAJOB 


,110) 


VARIABLES  IN  GETJ 
1P(J1BITE  .LE.  0)  GO  TO  200 
JPRINT=  JPBINT  ♦  1 

IP  (JPBINT  .GE.  JHBITE)  JWBITE=  -  1000 
HBITE{6,170)  JPBINT 

I  FORHATC  ENTER  GETJ  ...PASS  NOHBEB  ',110) 
¥BITE(6,190)  CAl,  CCl,  V,  DF,  DEMB 
BEITE(6,190)  TEHP,  HCNT2,  nCNT3,  VISC,  DELP 
¥BITE(6,190)  JHBITE,  JA,  JB,  JC 
HBITE(6,190)  AKA,  ARC,  EBE,  APT,  BPI 
HBITE  (6,190)  GANNA,  B,  C,  NF,  BATIO 
HBITE  (6,190)  BE,  KA,  KC,  DELPI 
IBITE(6,190)  CA2,  CC2,  CEQ2,  PI2 
HRITE(6,190)  CA3,  CC3,  CEQ3,  PI3 
HBITE  (6, 190}  CA2SnL,  CA2BIG,  CC2SNL,  CC2BIG 
HBITE(6,  190)  CA3SNL,  CA3BI6,  CC3SHL,  CC3BIG 
HBITE(6,190)  CC6EL,  Q 


HEITE(6,190)  TEHP,  I 
HBITE  (6, 190)  JHBITE 
HBITE(6,190)  AKA,  Al 
HRITE(6,190)  GANNA, 
HBITE(6,190)  BE,  KA. 
HBITE  (6,  190)  CA2,  C( 
HBITE(6,190)  CA3,  C< 
HBITE  (6, 190}  CA2SnL. 
HBITE(6,  190)  CA3SNL. 
HBITE(6,190)  CC6EL, 
HBITE  (6,180) 

FORHAT  (IX,  10  (*,*),  * 

FOBH  AT(5(1X,G15.5)  ) 

CCNTINOE 

BETOBN 

END 


CC2BIG 

CC3BIG 


LEAVING  GETJ 


,30( 


S  .S  .S  -V 


SUBliOOTINE  RO 


C 


c 

THIS  IS  THE 

FIBER  REVERSE 

OSMOSIS  INTERFACE 

c 

c 

FFED 

1  PERMEATE 

c 

STREAM 

FIBER 

1 - > 

1 

c 

3 - > 

REVERSE 

1  CONCENTRATE 

c 

OSMCSIS 

, - > 

2 

c 

— 

_ 1 

c 

PARAMETER 

CUANTITY 

c 

1 

OPERATING 

PRESSURE 

c 

2 

OPERATING 

TEMPERATURE 

c 

3 

LENGTH  OF 

A  FIBER 

c 

4 

OUTER  RADIUS  OF  FIBER  BUNDLE 

c 

5 

INNER  RADIUS  OF  FIBER  BUNDLE 

c 

6 

FIBER  DIAMETER 

c 

C  THE  PERMEATE  STREAM  MOST  BE  SPECIFIED  FIRST 
C  THE  CONCENTRATE  STREAM  MOST  BE  STECIFIED  SECOND 
C  THE  FEED  STREAM  MDST  BE  SPECIFIED  THIRD 
REAL  L,NF 
COMMON  /LOOK/  ISN 

COMMON  STREAM  (4,  100)  ,  ICONFG  (8 , 1  00)  ,  PAS  (500),  NPAR, 

5  NCALL,  lUNIT,  NFATFR,  NS,  NEQ,  DESC  (5) 

COMMON  /BOFIT/  AKA,  AKC,  ERE,  API,  BPI,  GAMMA,  B,  C, 

6  NF,  RATIO 

COMMCN  /PARHRO/  L,  OR,  Rl,  DF,  TOLMX,  TOLMN,  NNRITE, 

&  NSTEPS 

COMMON  /BOPARM/  TEMP,  VI  SC ,  DELP,  BHOB,  MCNT2,  HCNT3, 

6  JHBITE 

IF  (NCALL)  10,  80,  90 
10  CONTINOE 
C  SOME  ERROB  CHECKING 

IF  (ICONFG  (3,IOHIT)  .LT.  0)  GO  TO  30 
¥RITE(6,20)  lUNIT,  ICONFG  (3, lUNIT) 

20  FORMAT (6X,'******EBBOR,  UNIT', 16, FIRST  STREAM  IN', 
6*  CONFIGOBATION  IS', 15,*,  HOST  BE  PERMEATE  (OUTPUT.)') 
NFATEB=  NFATER  ♦  1 

30  IF (ICONFG(4,IONIT)  .LT.  0)  GO  TO  50 
HRITE(6,40)  lUNIT,  ICONFG  (4,  lUNIT) 

40  FORMAT (6X, '♦♦♦♦♦ERROR,  0NIT*,I5,'.  SECOND  STREAM  IN', 
B'CONFIGOBATION  IS', 15,'.  MUST  BE  THE  CONCENTRATE', 

8  '  (COTPOT).') 

NFATEB=  NFATEB  ♦  1 

50  IF(ICONFG  (5,I0NIT)  .GT.  0)  GO  TO  70 
HBITB(6,60)  lUNIT,  ICONFG  (5  , 1  UNI T) 

60  FORMAT  (6X, '♦♦♦♦•EBBOR,  UNIT', 15,'.  THIRD  STREAM  IN', 
6'  CONFIGURATION  IS', 15,'.  MOST  BE  THE  FEED  (INPUT).') 
NFATER-  NFATER  ♦  1 
70  CCNTINOE 
RETURN 
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80  CONTINUE 

INITIALIZATION  IS  THE  SAHE  AS  SIMULATE 
EETUEN 
90  CONTINUE 
C  SIMULATE 

DELP=  PAB(NPAE) 

TEHP=  PAE(NPAR+1) 

L=  PAR(NPAR*2) 

CR=  PAB(NFAE*3) 

RI=  PAK(NPAli>4) 

DF=  PAB(NPAR  +  5) 

IPEBM=  -ICONfG  (.3,  lONIT) 

ICCNC=  -ICONFG  (4,IUNIT) 

IFEED=  ICONFG  (5, lUNIT) 

C  GET  READY  TO  CALL  ROSS 

FLOH=  STREAM  (1,IFEEC) 

CAR=  STREAM  (3,IFEED) 

CABSAV=  CAR 

CCR=  STREAM  (4 ,1FEED) 

CCESAV=  CCR 

CALL  ROSS (FLOi,RHOB,CAR,CCE,SOUTA,SOUTB,SOUTC) 

TOUT=  SCUTA  ♦  SOUTH  ♦  SOOTC 
XAP=  SOOTA/TOUT 
XCP=  SODTC/TOOT 
STREAM  (3, IPEHM)  =  XAP*BHOB 
STREAM  (4, IPERM)=  XCP*RHOB 
STREAM  (2, IPERM)  =  0. 

FLOWC=FLCIi-TOOT/BflOB 

CAC=  (FLOif*CARSA¥-SOUTA)/FLOHC 
CCC=  (FL0W*CCRSAV-S0U1C) /FLOBC 
STREAM{3,ICONC) =  CAC 
STREAM  (4, ICONC)=  CCC 
C  NO  SUSPENDED  SOLIDS  IN  THE  PERMEATE 

STREAM (2, ICONC) =  FLO«*STREAM (2 ,IF EED) /FLOiC 
STREAM  (1  ,ICONC)=  FLONC 
STREAM (  1,IPERM) =  FIOH  -  FLOWC 
1F(1S8.NE.0)  HRITE(6,100) 

100  FORMAT  (•  LEAVING  RO») 

IF  (ISW. EQ. 1)  WRITE  (6,  110) lUNlT, (STREAM (I,IPERM) ,1  =  1,4) 
6  (STREAM  (I, ICONC) ,1=1,4) 

110  rORMAT(»  UNIT', 15,*  BO  PERM  FLOB=' , GIO. 3, 5X, • SS=' , 
6G10.3,5X,'DS=*,G10.3,5X, •T0C=',G 10. 3/15X, 'CONC  FLOH=', 
6  G10.3,5X,«SS=«,G10.3,5X,'DS=' ,G1 0.5 , 'T0C= * ,G10. 3) 
RETURN 
END 


non 


SOBSOOTINE  ROSS  (FLOK , RHOB, SCA P, SCCE , 30UTA, SOUTB, SOUTC) 
THIS  SUBROUTINE  PERPOHHS  THE  STEADY  STATE  PO  CALCULATIONS 

REAL*8  R,  JA,  JB,  JC ,  VR ,  DR,  DRSAVE,  CAR,  CCR, 

5  OUTASV,  OUTESV,  OUTCSV,  ATCTAL,  RDH,  AUX, 

6  VRDR,  CARDP,  CCHDR,  RELCA,  RELCC,  RELV, 

&  OUTA,  OUTB,  OUTC 

REAL  MF,L 

EQUIVALENCE  ( IXC NT , I HALV E) 

COHNON  /ROFIT/  AKA,  AKC,  ERE,  API,  B?I,  GANNA,  B,  C, 

6  NF,  RATIO 

COHMCN  /FASIRO/  IFLAGE 

CCHMCN  /PABHHC/  I,  RQ,  RI,  DF,  TOLMX,  TOLMM,  NNRITE, 

5  NSTEPS 
DATA  PI/3.  1il1593/ 

DATA  IVFRST/0/ 

DATA  IEBROR/0/ 

C  INITIALIZE  COUNTERS 
IFLAGF=  0 

IF(IVFRST  .NE.  0)  GO  TO  10 
IVFRST=  1 
IFLAGP=  1 
10  CONTINUE 

CAfi=  SCAB 
CCRs  SCCR 
IHALVE^  0 
J*  0 
1=  0 

OOTAs  0. 

OOTB=  0. 

OUTC=  0. 

B*  HI 

iTOTAL=  PI*(BO*HC  -  BI*RI) 

VB=  FLOH/(2.*PI*ai*L) 

DB=  (HO  -  RI) /NSTEPS 
DBSATB>  OB 
KGETF*  10 
20  CONTINUE 

C  STABT  OF  TBE  INTEGBATICN  LOOP 
30  CONTINUE 

C  GETP  CALCULATES  VALUES  OF  THE  FLUXES 

CALL  GETF(CAB,CCB,VR,DF, JA,JB, JC,KGETF) 

C  CHECK  FOB  EBBOBS  IN  GETF 

IF(KGETF  .EQ.  0)  GO  TO  100 
IEBBOB»  lEBBOB  ♦  1 
NBITE(6,40) 

40  POHHAT  (*  IN  BOSS. . . EESPONDING  TO  AN  ERBOR  IN  GETF*) 
HPITE(6,130)  I,  IXCNT,  R,  CAE,  CCR,  OUTA,  OUTB,  OUTC, 

6  VB,  AUX,  JA,  JB,  JC 
KGETP=  0 

50  CONTINUE 

C  HALVE  THE  STEP  SIZE 
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IHALVE=  IHALVE  ♦  1 
EB=  DH/2. 

CHECK  FOR  EXCESSIVE  STEP  SIZE  HALVINGS  AND 
ERRORS  FROM  GET? 

IF  (IHALVE  .LE.  20)  GO  TO  70 
NEITE  (6,60) 

60  FOBMATC  IN  ROSS.  AN  EXCESSIVE  NDMBER  OF  RADIAL  STEP* 
$,'  SIZE  HALVINGS  HAVE  OCCURRED.') 

STOP 

70  CONTINUE 

IF(IEHBCR  .LE.  100)  GO  TO  90 
WRITE  (6  ,80) 

80  FORMAT  (•  IN  ROSS.  AN  EXCESSIVE  NUMBER  OF  ERRORS  HAVE* 
$,  •  BEEN  REPORTED  FROM  GETF') 

STOP 

90  CONTINUE 
100  CONTINUE 
C  ONE  INTEGRATION  STEP 
RDR=  R  ♦  DR 

AUX=  NF*DF*PI*DR*  (2.*R*DR) 

VRDR=  (2.  ♦R*EHCB*VH-  (JA+J3+JC)  ♦AUX)/  (2.  ♦RDR*RHOB) 
CARDR=  (2.*R*VR*CAE-JA*ADX)/(2.  ♦RDR*VRDR) 

CCRDR=  (2.*R*VR*CCR-JC*A0X)/(2.*RDfi*VRDB) 

C  CALCULATE  THE  RELATIVE  CHANGE  IN  VARIABLES  OVER  THE 
C  INTEGRATION  STEF 

IF  (Vfi  .NE.  0.)  HELV=  (VRDB-VB)/VH 

IF{VR  .EQ.  0.)  RELV=  VRDR-VR 

IF  (CAR  .NE.  0.)  BELCA=  (C AHDR-CAR) /CAR 
IF  (CAR  .EQ.  0.)  RELCA=  CABDR-CAR 
1F(CCH  -NE.  0.)  RELCC=  (CCRDB-CCR) /CCR 
IF(CCR  .EQ.  0.)  RELCC=  CCRDB-CCR 
C  CHECK  FOB  UNREALISTIC  VALUES  OF  VARIABLES 
IF(VROB  .LT.  0.0)  60  TO  50 
IF(CAHDR  .LT.  0.0)  GO  TO  50 
IF  (CCBDR  .LT.  0.0)  GO  TO  50 
C  IF  GBADIEMTS  ABE  TOO  STEEP,  HALVE  THE  STEP  SIZE 

IP(RELV  -GT,  TCLMI  .08.  (-BELV) -GT.TOLHX)  GO  TO  50 
IF(EELCA  -GT.  TOLHX  -OR,  (-R ELCA)  . GT. TOLHX)  GO  TO  50 

IF  (RBLCC  -GT.  TOLHX  .OR.  (-RELCC)  . GT. TOLHX)  GO  TO  50 

C  IF  GRADIENTS  ARE  VERY  SHALL,  DOUBLE  STEP  SIZE 

IF(RBLCA  .GT,  lOLHH  .CR.  (-RELCA)  .GT.  TOLHN)  GO  TO  11 

IF  (RBLCC  .GT,  TOLHN  .OR.  (-RELCC)  .GT.  TOLHN)  GO  TO  11 

IHALVE=  IHALVE  -  1 
DR=  DR*2. 

C  NEVER  LET  STEP  SIZE  BECOHE  LARGER  THAN  THE  ORIGINAL  ONE 
IF  (OB.LT.DRSAVE  )  60  TO  110 
DR=  DBSAVE 
IHALVE^  0 
110  CONTINUE 

C  UPDATA  PEBHEATE  FLOW  RATES 
OUTASV*  CUTA 
OUTBST=  OUTB 
OUTCSV=  OUTC 

OUTA*  OUTA  ♦  JA*AUX*L*PI 
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OUTB=  00TB  ♦  .JE*AUX*L*PI 
0aTC=  OUTC  ♦  JC*AOX*L*PI 
C  GET  READY  FOR  NEXT  INTEGRATION  STEP 
1=  I  +  1 
R=  RDB 

C  SAVE  CURRENT  VALUES  OF  VARIABLES  FOR  USE  LATER 
VSAVE=  VR 
CASAVE=  CAR 
CCSAVE=  CCR 
Vfi=  VRDR 
CAB=  CARCR 
CCR=  CCHDR 

C  DETERMINE  WHETHER  ANY  OUTPUT  AT  THIS  STEP  IS  REQUIRED 
IF(NHRITE  .LE.  0)  GO  TO  140 
J=  J  ♦  1 

IF(J.LT-NHRITE)  GO  TO  140 
J-  0 

120  CONTINUE 

iRITE(6,130)  I,  IXCNT,  R,  CAR,  CCR,  OUTA,  OOTB,  OU 
&  VR,  AOX,  JA,  JB,  JC 

130  FORMAT  ('  IN  ROSS  * ,  213,  (/5  (  IX  ,  E  1  1. 4)  )  ) 

IF(R  .EQ,  RO)  GO  TO  150 
140  CONTINUE 

IF(R  .LT.  BO-DR/10.)  GO  TO  20 
USE  LINEAR  INTERPOLATION  TO  FIND  VAIUES  OF  CAR, CCR, VR 
EXACTLY  AT  BO 

VR=  ((VRDR-VSAVE)/DR)*(RO-(RDR-DR))  ♦  YSAVE 
CAR=  (  (CAEDR-CASAVE)/DR)  ♦  (RO- (RDR-DR)  )  ♦  CASAVE 
CCR=  ((CCHDP-CCSAVE)/DR)  •  (RO- (RDR-DR)  )  ♦CCSAVE 
OUTA=  (  (OaTA-OOTASV)/DB)  ♦(EO- (RDR-DR)  )  ♦OUTASV 
OUTB=  ((OUTB-OUTBSV) /DR)  ♦(RO- (RDR-DR))  ♦  OUTBSV 
OUTC=  (  (OOTC-ODTCSV) /DR)  ♦  (RO- (RDR-DR)  )  ♦  OUTCSV 
R=  BO 

IF(NWRITE  ,EQ.  -999  .OR.  NHRITE  .GT.  0)  GO  TO  120 
150  CONTINUE 
C  ONSAVE  THE  ORIGINAL  STEP  SIZE 
0R=  ORSAVE 
SOUTA=  OUTA 
SOOTB=  OOTB 
SOOTC=  OUTC 
SCAR=  CAR 
SCCB=  CCR 
RETURN 


SOBBOOTINE  GETF  (CA  1,  CC 1,  V,  DF,  J  A,  JB,  JC,  KGETF) 


THIS  SUEROOTINE  CCHPUIFS  THE  FLUXES  FOR  THE 
REVERSE  OSMOSIS  PBOGEAH 

SEE  REPORT  BY  SMITH  AHD  STABKS  ON  THE  BO  UNIT  FOB  A 
DISCRIPTICN  OF  VARIABLES 

EEAL*8  JA,  JB,  JC,  CA1,  CCl,  V,  XA1,  XC1,  CA2B1G, 
e  CA2SHL,  PI2BIG,  PI,  POSMOT,  CA2,  JDA,  CA3BIG, 

e  CA3SML,  CA3,  JE1,  CC2,  CC3,  CEQ2,  PI2,  CEQ3, 

&  P13,  DELPI,  JB2,  CA3P,  CA2P,  CONC 

REAL  KA,KC,NF 

COMMCH  /EOPABM/  TEMP,  VISC,  DELP,  RHO,  MCNT2,  HCNT3, 

&  JHRITE 

COMMON  /ROFIT/  AKA,  AKC,  ERE,  API,  BPI,  GAMMA,  E,  C, 
6  NF,  RATIO 

CCHMCN  /FASTBO/  IFLAG 
DATA  TOLER/0.001/ 

DATA  JPRINT/O/ 

POSMCT  (CONC) =  API*TEMF*CONC* ( 1. 0*BPI*CONC) **2 
IF  (CA1  .LT.  O.C  .OH.  CA1  .GT.  RHC)  GO  TO  10 

IF  (CCl  .LT.  0.0  .OR.  CCl  .GT.  RHC)  GO  TO  10 

IP(V  .LT.  0.0)  GO  TO  10 
GO  TO  30 
10  CONTINUE 

IF  UNREALISTIC  VALUES  FROM  BOSS  ARE  ENCOUNTERED,  PRINT 
AN  ERROR  MESSAGE  AND  DUMP  THE  MAJOR  VARIABLES  IN  GETF. 
THEN  RETURN. 

1RITE(6,20)  CA1,CC1,V 

20  POBMATC  IN  GETF  ...UNREALISTIC  INPUT  VALUES.', 

6  •  CA1=  ',Gl5.b,»  CC1=  ',615.5,'  V=  ',G15.5) 

KGETF=  1 

IF(JiRITE  .LE.  0)  JNRITE=  1 
GO  TO  140 
30  CONTINUE 

CALCULATE  REYNOLDS  NUMBER 
BE=  DF*V/VISC 

CALCULATE  HASS  TBANSFEB  COEFFICIENTS 
KA=  AKA*aE**ERE 
KC=  AKC*BE**EBE 

RESET  KGBTF  TO  NON-ERROB  CONDITION  IF  NEEDED. 

IF(KGETF  .LE.  0)  GO  TO  40 
KGETF=  0 
40  CONTINUE 
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CALCULATE  BULK  NASS  FRACTIONS 
X11=  CA1/BHO 
XC1=  CC1/RHO 

IF  (IFLAG  .EQ.  0)  GO  TO  190 

USE  INTERVAL  HALVING  TO  FIND  THE  LARGEST  POSSIBLE  VALUE 
OF  CA2,  REMEMBERING  THAT  (DELP-DELPI)  MUST  ALWAYS  BE 
POSITIVE. 

CA2BIG=  RHO 
CA2SHL-  0. 


C  DSE  CA2  AS  A  TEMPOBAfiY  STORAGE  LOCATION  FOR  NON 
CA2=  CAl  *  CC1*BATIO 
PI2BIG=  PCSHOT(CA2)  ♦  DEIP 
DC  60  1=  1,20 

CA2=  {CA2BIG  ♦  CA2SML)/2. 

P12=  POSNOT  (CA2) 

1F(PI2  -GT.  PI2BIG)  GO  TO  50 
CA2SHL=  CA2 
GO  TO  60 
50  CA2BIG=  CA2 
60  CONTINUE 

C  USE  DOUBLLY  NESTED  INTERVAL  HALVING  TO  SOLVE  FOB 

C  CA2  AND  CA3 

C  SET  UP  LIMITS  FOB  OUTER  LOOP  TO  FIND  CA2 
CA2SHL=  CAl 
CA2BIG=  CA2 
DO  130  1=  1,MCNT2 

CA2=  (CA2BIG  ♦  CA2SHL)/2. 

JCA=  KA*(CA2  -  CA1) 

C  SET  UP  LIMITS  FOB  INNER  LOOP  TO  FIND  CA3 
CA3BIG=  CAl 
CA3SHL=  0. 

DO  100  11=  1,MCNT3 

CA3=  (CA3aiG  ♦  CA3SML)/2. 

JB1=  B^BflO*  (CA2/CA3  -  1.0) 

CC2=  (JB1  ♦XC1*KC*CC1)/  (KC+C*  ( 1.-RHO*C/  (JBURHO*C)  ) ) 
CC3=  RHO*C*CC2/(a81+SHO*C) 

CEQ2=  CA2  ♦  CC2*RATIO 
PI2=  PCSH0T(CEQ2) 

CEQ3=  CA3  ♦  CC3*BATIO 
PI3=  POSNOT  (CEQ3) 

DELPI=  PI2  -  PI3 

JB2=  GAMMA*  (DELP  -  DELPI) 

CA3P=  B*BHO*CA2/(JB2  ♦  B*HHO) 

IF(JB2  .LT.  0.0)  GO  TO  70 
IF(CA3  .GT.  CA3P)  GO  TO  80 
70  CA3SHL=  CA3 
GO  TO  90 
80  CA3BIG=  CA3 
90  CCNTINUE 
100  CONTINUE 

JB=  (OBI  ♦  JB2)/2. 

CA2P=  (JB*XA1  ♦  KA«CA1  ♦  B*CA3)/(KA  ♦  B) 

IF(CA2  .GT.  CA2P)  GO  TO  110 
CA2SHL-  CA2 
GO  TO  120 
110  CA2BIG==  CA2 
120  CONTINUE 
130  CONTINUE 

JA*  B*(CA2  -  CA3) 

JC=  C*(CC2  -  CC3) 

140  CONTINUE 

C  THIS  SECTICN  OF  MBITE  STATEMENTS  PROVIDES  A  DUMP  OF  MAJOR 

C  VARIABLES  IN  GETF 


IF(JifiITE  .LE.  0)  GO  TO  180 
JPfiINT=  JPPINT  ♦  1 

I?(JP81NT  .GE.  JBRITE)  JWRITE=-1000 
HBITE(6,150)  JPRINT 

IbO  FOEMATC  ENTER  GETF  ...PASS  NUMBER  ',110) 
MRITE{6,170)  CA1,  CCl,  V,  DF,  RHO 
HBITE{6,170)  TEMP,  MCMT2,  MCNT3,  VISC,  DELP 
1RITE(6,170)  JBRITE,  JA,  JB,  JC 
BRITE  (6,170)  AKA,  AKC,  ERE,  API,  BPI 
MSITE(6,170)  GAMMA,  B,  C,  NF ,  RATIO 
BEITE(6,170)  HE,  KA,  KC,  DELPI 
WRITE  (6,170)  CA2,  CC2,  CEQ2,  PI2 
BRITE  (6,170)  CA3,  CC3,  CEQ3,  PI3 
WHITE(6,170)  CA2SML,  CA2BIG,  CC2SML,  CC2BIG 
WHITE(6,170)  CA3SBL,  CA3EIG,  CC3SHL,  CC3fllG 
WRITE  (6,160) 

160  FORMAT(1X,10('.')  ,*  LEAVING  GETF  •,30(*-')) 

170  F0BHAT(5(1X,G15.5) ) 

180  CCNTINOE 
RETURN 

190  CCNTINOE 
THY  BACK  SUBSTITUTION 
DO  200  1=1,  15 
CA2L=  CA2 
CA3L=  CA3 
CC2L=  CC2 
CC3l=  CC3 

CEQ2=  CA2  ♦  BATIO*CC2 
PI2=  POSMOT(CBQ2) 

CBQ3=  CA3  ♦  RATIO*CC3 
PI3=  P0SH0T(CEQ3) 

DELPI=  PI2  -  PI3 

IF (DELPI  .GT,  DELP)  DBLPI=  0.3*DELP 
JB=  GAHNA*  (DELP-DELPI) 

JA=  B*  (CA2-CA3) 

JC=  C*(CC2-CC3) 

TOTIJ=  OA»JC*JB 
CA3=  JA/TCTIJ 
CC3=  JC/TOTIJ 

CA2=  (TOTLJ*XA1*KA*CAUB*CA3)/  (KA*B) 

CC2=  (T0TIJ*XC14KC*CCUC*CC3)/(KC+C) 
HELCA3=  (CA3-CA3L)/CA3 
BELCC3=  (CC3-CC3L)/CC3 
BELCA2=  (CA2-CA2L)/CA2 
HBLCC2=  (CC2-CC2L)/CC2 
1P(RBLCA3  .LI.  0.)  fiELCA3=  -RELCA3 
IF(RELCC3  .LI.  0.)  BEICC3=  -BELCC3 
1F(BELCA2  .LT.  0.)  BELCA2=  -BBLCA2 
IF(BELCC2  .LI.  0.)  RELCC2=  -BELCC2 
IF(RELCA3  .GI.  TOLEB)  GO  TO  200 
1F(BELCC3  .GT.  TOLER)  GO  TO  200 
IF(RELCC2  .GT.  TOLER)  GO  TO  200 
1F(RELCA2  .GI.  TOLER)  GO  TO  200 
GC  TO  140 


SUBSOUTINE  TS 


C 

C  TOBULAB  EEVEBSI  OSMOSIS  MODEL  INTERFACE  TO  WPE  SIHOLATOR 

C 

C 


c 

1 

1 

PERMEATE 

c 

FEED 

1  TUBULAR 

- > 

1 

c 

3  — 

— >1  REVERSE 

1 

CONCENTRATE 

c 

1  OSMOSIS 

- > 

2 

c 

c 

c 

PARAMETER 

QUANTITY 

c 

1 

NUMBER  OF  TUBES 

C  2  OPERATING  lEHPEPATORE 

C  3  PEFSSOBf  DROP  ACROSS  THE  MEMBRANE 

C  AT  THE  INLET 

C  4  PfiESSORE  DROP  DOBN  IHE  TUBE 

C  5  DIAMETER  OF  TUBE 

C  6  TUBE  LENGTH 

C 

C  THE  PERMEATE  STREAM  MOST  BE  SPECIFIED  FIRST 
C  THE  CONCENTRATE  STREAM  HOST  BE  SPECIFIED  SECOND 
C  THE  FEED  STREAM  MOST  BE  SPECIFIED  THIRD 
REAL  NTPIDT 
DIMEMSICM  PEBMM(IOO) 

COMMON  /LOOK/  ISS 

COMMON  STBEAN(4, 100) ,  ICOMFG  (8 , 1 00)  ,  PAH  (500) ,  NPAR, 

6  NCALL,  lUNIT,  NEATER,  NS,  NEQ,  DBSC(5) 

COMMON  /TRPARH/  PLEN,  DTDBE,  NT,  JPBINT,  JHRITE 
COHHCN  /PARMTE/  TEMP,  VISC,  DBNB,  DPZERO,  PDBOP 
IF  (NCALL)  10,  80,  90 

C  THERE  ARE  NO  MATERIAL  BALANCE  CALCDLATIONS.  HOWEVER,  THE 
C  STREAM  SPECIFICATIONS  ARF  CHECKED  FOR  CONSISTENT 
C  INPOT/OOTPUT 
10  CONTINUE 

C  SOME  EESOB  CHECKING 

IF  (ICONFG  (3,IONIT)  .  LT.  0)  GO  TO  30 
■BITE(6,20)  lONIT,  ICONFG  (3  , 1  UNIT) 

20  FORMAT (6X, •♦♦♦♦♦ERROR,  UNIT*, 15,*.  FIRST  STREAM  IN*, 

8  •  CCHFIGOBATION  IS»,I5, *.  MOST  BE  THE  PERMEATE', 

8  •  (OOTPOT).*) 

NFATEBs  NFATFB  ♦  1 

30  IF  (ICONFG  (4,  lONIT)  ,  IT.  0)  GO  TO  50 
«BITE(6,40)  lUNIT,  ICONFG  (4  ,1  UNI  I) 

40  FOBMAT(6X, '♦•♦♦♦ERBOE,  UNIT* ,15,'.  SECOND  STREAM  IN', 
8  '  CONFIGOBATICN  IS',I5, MUST  BE  THE  CONCENTRATE', 

6  '  (OOTPOT).') 

NFATBH=  MFATER  ♦  1 

50  IF  (ICONFG(5,IONIT)  . GT.  0)  GO  TO  70 
BRITE(6,60)  lUNIT,  ICONFG  (5,  lONIT) 

60  FORMAT(6X,'*****EBBOR,  0N1T',I5,'.  THIRD  STREAM  IN', 

8  »  CONFIGOBATICN  IS', 15,'.  MOST  BE  THE  FEED  (INPOT).') 
NFATEB=  NPATEH  ♦  1 


70  CONTINUE 
RETURN 
80  CCNTINOE 

INITIALIZATION  SAME  AS  SIMULATE 
PERMNCIUNIT)  =  C. 

EETUEN 
90  CONTINUE 

SET  OP  CO.MHON  VARIABLES 
NT=  PAF{NPAR) 

TEHP=  EAR(NPAR+1) 

DPZEEO=  PAR(NPAR  +  2) 

PDHOP=  PAB(NPAR*3) 

DTOPE=  PAB(NPAR*4) 


DTOPE= 


PLEN=  PAB  (NPAB  +  5) 
SIMULATE 

IPEBH=  -ICONFG  (3,1UNIT) 
ICONC=  -ICONFG (4,IUNIT) 
IFEFD=  ICONFG  (5,IUNIT) 
GET  HEAEY  TO  CALI  TRSS 


K0LTRA= 

CS=  STREAM  (2,IFEBD) 

CD=  STREAM  (3, IFEFD) 

CC=  STREAM  (4,IFEED) 

FLOi=  STREAM  (1 ,IFBED) 

PEBM=  PEBHN(IUNIT) 

IF  (ISW  .GE.  1) 

6  NRITE(6,100)  IPERM,  ICONC,  IFEED,  CA,  CC,  PLOH 
100  FORHATC  |$$  TR  EEBUG*  ,6G10. 3) 

CALL  TBSS  (KOLTRA,CS,CD,CC, FLOH,TOTALA,TOTALB, 

6  TOTALC,PERH) 

PEBM8(I0NIT)  =  PERM 

TOTAL=  TOT  ALA  ♦  TOTALS  *■  TOTALC 
STREAM (3,IPBRH) =  TOTA IA/TOTAL*DENB 
STREAM (4, IPEHH) =  T0TA1C/T0TAL*DENB 
STREAM  (1,IPERM)=  TOTAl/DENB 
C  MO  SOSPEHDED  SOLIDS  PASS  THROUGH  TR  MEMBRANE 
STREAM(2,IPBBH)  =  0. 

C  CHECK  FOB  ERRORS 

1F(KULTRA  .LT.  0)  GO  TO  120 
HBITE(6,110)  KOLTRA 

110  FORMAT  (»  ♦♦♦♦♦ERROR  IN  TR  WHILE  CALLING  TRSS.', 

6  »  K0LTRA=»,I5) 

MFATER=  NEATER  ♦  1 
120  CONTINUE 

C  GET  FLOW  RATE  OF  CONC.  BY  STEADY  STATE  MATERIAL  BALANCE 
STREAM  (1,ICONC)  =  STREAM  (1  ,IFESD) -STREAM  (1  ,IPERM) 

C  GET  CONCENTHATICN  OF  CONCENTRATE  BY  COMPONENT  BALANCE 
DO  130  1=2,4 

STREAM  (I, ICONC)  =  (STREAM  (I  ,IFEED)  ♦STREA «  (1  , IFEED) - 
6  STREAM(I,IPEBH)  ♦STREAM  (1 ,  IP  ERM)  ) /STR  EAM  (1  , ICONC) 

130  CONTINUE 

IF(ISH.EQ.I)  WRITE  (6, 140)  I  UNIT,  (STREAM (I  , IPERM)  ,1=1,4) 
&  (STREAM  (I, ICONC)  ,1^1,4) 

140  FORMATC  UNIT', 15,'  TR  PFRM  FLOW  =  •  ,  G 10.  3,  5X,  •  SS  =  ' , 


6G10.3,5X,'DS  =  *,G10.3,5X, •TOC=' ,G10, 3/1 5X, 'CCNC  FLOH=  * , 
6  G10.3,5X,'SS  =  ',G10.3,5X,'  DS  =  '  ,G1  0.  3  ,SX,  •  TOC  =  '  ,G10.3) 
BETOBN 
END 
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SUBBOUTIME  TRSS  (KULTRA,SS, DS,TC, F, TOTALA, TOTALS, 

S  TCIALC^PEBM) 

THIS  SOBHOUTINE  PERPOFHS  THE  STEADY  STATE  CALCOLATIONS 
FOB  TOBULAR  REVERSE  OSHOSIS  PIODULES. 

THIS  ROOTINE  ASSOHES  CC.1FLETE  REJECTION  OF  SUSPENDED 
SOLIDS  AND  HIGH  REJECTION  OF  DESOLVED  SOLIDS. 

SEE  THE  REPORT  BY  ABBOTT  AND  STERLING  ON  THE  MODIFIED  UF/ 
TOEDLAR  RO/  GEL  flODEL  FOR  A  D13CPIPTICN  OF  VARIABLES 


REAL  NTPIDT 
REAL*a  RE,  SCA,  SHA , 
COMHCN  /TRPARM/  PLEN, 
COMMON  /THFIT/  GANi, 
r  ADAX, 

COMMON  /PARMTR/  TEMP, 
COMMON  /CTIME/  TIME, 


KA,  see,  Stic,  KC 
DTUBE,  NT,  JPRINT,  JHRITE 
GAH2,  GAMINF,  API,  B,  C,  DCX, 
BDAX,  CDAX 

Vise,  DENB,  DPZERO,  PDROP 
FTIME,  DT 


DATA  PIE/J. 141593/ 

COMPUTE  NT  TIMES  THE  CIRCUMFERENCE  OF 
HTPIDT=  rT*DTDBE*PIE 

COMPUTE  THE  CROSS-SECTIONAL  AREA  OF  A 
AREA=  PlE^CTOBE^ETOBE/a. 

COMPUTE  THE  VELOCITY  THROUGH  A  TUBE 
?=  F/(AHEA*NT) 

CA=  DS 

COMPUTE  THE  SEIGHT  FRACTION  OF  TDS 
XA1=  DS/DENB 

COMPUTE  THE  HEIGHT  FRACTION  OF  TOC 
XC1=  TC/DBNB 

COMPUTE  THE  REYNOLDS  NUMBER 
RB=  DTUBE*V/VISC 
RE913=  0.0096*RE**-913 
XXX=  XA1*100, 

00»  ACAX*XXX 

IF  (COAX*XXX  .LT.  174.)  DDD=  ADAX*XJ 
DAX=  DDD*1.E-10 
IF  (DAX  .  NE.  0.)  GO  TO  10 
KULTfiA=  1 
GO  TO  100 

10  SCA=  VISC/DAX 

IF  (SCA  .GT,  0.)  GO  TO  20 
K0LTRA=  2 
GO  TO  100 

20  SHA=  RE913* (SCA**.34b) 

RA=  SBA*CAX/0TUBE 
IF  (DCX  .ME.  0.)  GO  TO  30 
KULTRA-  3 
GO  TO  100 

30  SCC=  VISC/DCX 

IF  (see  .GT.  0.)  GO  TO  40 
ROLTBAs  4 
GO  TO  100 

40  SHe=  RE913*  (SCe**.346) 


TUBES 


TUBE 


DDD=  ADAX*XXX  f  BDAX*EXP (-CDAX* 


-.S*' 


152 


KC=  SHC*CCX/CTDBE 
DPBAR=  DPZEHO  -  0.5*PDROP 
POS=  API*TEHE*CA 
IF  (POS  .LE.  CPBAR)  GO  TO  50 
K0LTRA=  5 
GC  TC  100 
50  GANHA=  GAHIHF 

IF  (GAM2*PERri  .LI.  174) 

B  GAHHA=  GAWINF  +  (GAM1  -  GAMI MF)  *EXP  (-G A i12* PERI) 

TEHfl1=  GAMMA+DPBAB/DENB  +  KA 
TERS2=  GAf1HA*POS/DENB  ♦  B  ♦  KA 
IF(TERM2  .RE.  0.)  GO  TO  60 
K0LTBA=  6 
GO  TO  100 

60  TERM  12=  TESn1/TEHM2 

TOTALB=  PLEN*GA«MA* (DPBAR  -  POS+TEBM  12) *NTPIDT 
PERM=  PERM  ♦  (TOTALB/DENB)  ♦DT 
TOTALA=  B*DS*PLEN*TERH12*NTPIDT 

T0TA1C=  C*TC/(C  ♦  KC)  ♦  (KC*PLEM*NTPIDT  ♦  TOTALB/DENB) 
IF(TOTALA  .LT.  0.)  WRITE  (6, 70)  TOTALA,  3,  TEEM  12 
70  FOBMATC  ♦♦♦♦♦TOTALA=  »,G12.5,*  B=  ',612.5, 

6  •  TERM12=  *,012.5) 

IF  (TOTAIB  .  LT.  0.)  HRITE(6,80)  TOTALS,  GAMMA,  POS,  TERM  12 
80  FOBMATC  ♦♦♦♦*TOTALB=  ',G12.5,'  GAMMA=  ',012.5, 

6  '  POS=  *,G12.5,»  TERM12=  ',G12.5) 

IP(TOTALC  .LT.  0.)  WRITE (6, 90)  TOTALC,C,KC 
90  FOBMATC  ♦♦♦♦♦TOTALC=  *,612.  5,'  C=  ',G12.  5, 

6  •  KC=  ',G12.5) 

100  IF(JPEINT  .LE.  0)  RETURN 
JPRINT=  JPBINT  -  1 

WRITE(6,110)  SS,  DS,  TC,  F,  DPZEHO,  PDBOP,  PLEN,  DT, 

B  DTQBE,  NTPIDT,  DENB,  NT 

110  FOBMATC  SS=',G13.5,'  DS=',G13.5,'  TC=' , 

♦  G13.5,'  F=',G13.5/'  DPZERO= ' , G  12.  5,  '  PDROP=', 

1G13.5,*  PLEN=',G13.5, *  DT=*,G13.5/'  DTUBE=', 

2  G13.5,'  NTPIDT=',G13-5,*  DEN B=' , G13. 5 , *  NT=* , 

3  G13.5) 

WRITE  (6, 120)  GAHI,  GAM2,  GAMINF,  API,  B,  C,  DCI,  ADAX, 
&  BOAX,  CDAX 

120  FOBMATC  G  AH  1=  '  ,  G1 3.  5,  *  GAH2=' ,  G  13.  5,  '  GAMIHF=', 

♦  G13-5,'  B=',G13.5,'  C=',G13.5/*  RATIO*', 

1G13,5,'  DCX=»,G13.5, *  ADAX=* ,G13.5, *  BDAX=*, 

2  G13.5,*  CEAX=»,G13.5) 

WRITE  (6,130)  TEMP,  VISC,  AREA,  7,  CA,  XAl,  XC 1 ,  RE 
130  FOBMATC  TEMP*' ,G13.5,  »  VISC=*  ,G  13.5,  *  AREA*', 

♦  G13.5,'  V=',G13.5/*  CA=',G13.5,'  XA1=', 

1  G13.5,'  XC1=*,G13.5,'  RE=',G13.5) 

WBITE(6,140)  OAX,  SCA,  SHA,  KA,  DCX,  SCC,  SBC,  KC 
140  FOBMATC  DAX=  *  ,G1  3 .5,  •  SCA  =  *  ,G13.5,  '  SUA=*, 

♦  G13.5,'  KA=',G13.5/*  DCX=* , G13.5, '  SCC=*, 

1  G13-5,'  SHC= ',G13.5,  '  KC=*,G13.5) 

WRITE  (6, 150}  OPBAB,  POS,  TERMI,  TEBn2,  TERnl2, 
e  TOTALA,  TOTALS,  TOTALC 

150  FOBMATC  DPB  AR=  »  ,  G1  3.  5,  '  POS=' ,  G  1 3.  5,  '  TERMI*', 


SUBBCDTINE  U? 


C 

C  THIS  IS  THE  ULTRAVIOLET  OZONATION  iNTERFACE 
C 

C  _ _ PURGE 

C  FEED  I  I - > 

C  1  - >1  ULTRAVIOLET  | 

C  I  OZONATION  1  EFFLUENT 

C  OZONE  I  I - >  2 

C  - >1 _ I 

C 

C  PARABETER  QUANTITY 

C  1  INITIAL  TSS  CONC. 

C  2  INITIAL  TDS  CONC. 

C  3  INITIAL  TCC  CONC. 

C  4  INLET  GAS  PHASE  OZONE  TO  AIR  BASS  RATIO 

C  5  VCLUBETRIC  GAS  FLOW  RATE 

C  6  PEECONTACTOB  FLAG  (0=  NO  PRECONTACTOR) 

C  7  NUMBER  OF  STAGES 

C  8  AREA  CF  A  CONTACTOR 

C  9  AREA  OF  THE  PHECONTACTOR 

C  10  tFIGHT  OF  A  STAGE 

C  11  FEED  TEMEERATORE 

C  12  OPERATING  PRESSURE 

C  THE  FEED  STREAB  HOST  BE  SPECIFIED  FIRST 
C  THE  EFFLUENT  STREAB  BUST  BE  SPECIFIED  SECOND 

DIBEHSIOH  ZOUT(IO),  CZOUT(IO),  CIOUT(IO),  SS(10), 

S  DS(10)  ,  DSS(IO)  ,  DDS(IO) 


CCHHCN  /DELTAT/  DTU? 

COHBON  /HATTOC/  TOCHCT 

COHHOM  /HATBAL/  BALSCE{4),  AHTIN(4),  AHTOOT  (4) 

CCHBON  /CUBE/  TIBI,  FTIBE,  DT 

COHBON  STREAM  (4,  100)  ,  ICONFG  (8,  100)  ,  PAR  (500),  NPAR, 
6  NCALL,  lONIT,  NFATEB,  NS,  NEQ,  DESC(5) 

COHBON  /LOOK/  ISW 

COHBON  /STAGES/  NSTAGE,  PBBCON 

COHBON  /HATDIS/  HATCAL 

COBHON  /OVPAHB/  CABEA,  PABEA,  H,  RHO,  PRESS,  TEHP,  N 
COHBON  /STGSA?/  ZOOT,  CZOUT,  CTOOT,  SS,  DS 
IF(NCALL)  10,  100,  110 
10  CONTINUE 
C  INITILIZE 

PRECCN=  PAfi(NPAB«5) 

NSTAGE=  PA6(NPAB«6) 

NNN=  NSTAGE 

IF(peECON  .NE.  0.0)  NNN=  NSTAGE  *  1 
IP  (HATCAL  .NE.  0)  GO  TO  30 
DO  20  I-  1,  NNN 
CZOUT  (I)  =  0. 

ZOUT(I)=  0. 

SS(I)  »  PAR  (NPAB) 

DS(I)  >  PAR  (NPAR^I) 

20  CTOUT(I)=  PAR(NPAR*2) 


30  CCNTINOE 

PLAG=  0. 

IF(PBECON  .HE.  0.0)  FLAG  =  1. 

VCON=  CABEA^H 
VPRE=  PABEA*H 

BALNCE(1)=  BALNCE(I)  ♦  N  STAGE*  VCON  +  FLAG  +  VPRR 

DC  40  1=  1,  NSIAGE 

EALNCE(2)=  BALSCE(2)  ♦  VCON*SS(I) 

BALNCE(3)=  BALNCE(3)  ♦  VC0N*DS(1) 

EALNCE(4)=  BALNCE(4)  +  VCON*CTODT  (I) 

40  CONTINUE 

IF(PRECOM  .EQ.  0.0)  GO  TO  50 
EALNCE(2)=  BALNCE{2)  ♦  VPRE*SS  (NSTAGE+1 ) 

EALNCE(3)=  BALSCE(3)  ♦  VPRE*CS  (NSTAGE  +  l) 

EALNCE(4)=  BALNCE(4)  ♦  VPRE*CTOUT  (NSTAGE+1) 

50  CONTINUE 

IF{ICONFG(3,IUNIT)  . GT.  0)  GO  TO  70 
HRITE(6,60)  lUNIT,  ICCNFG  ( 3,  lUNIT) 

60  FORMAT (6X, •♦♦♦♦ERROR,  UNIT', 15,'.  FIRST  STREAM  IN', 

5  '  CONFIGURATION  IS', 15,'.  MUST  BE  THE  FEED.') 
NFATER=  NEATER  ♦  1 

70  IF  (ICONFG  (4,IUNIT)  .LT.  0)  GO  TO  90 
HRITE(6,80)  lONIT,  ICONFG  (4 , 1  OMIT) 

80  FORMAT  (6X,* ♦♦♦♦ERROR,  UNIT', 15,'-  SECOND  STREAM  IN', 

6  •  CONFIGURATION  IS ',15,'.  MOST  BE  THE  EFFLUENT.') 
HFATBR=  NFATER  ♦  1 

90  CONTINUE 
100  CONTINUE 
RETURN 

110  CONTINUE 

DT0V=  DT 

C  ALL  COMMON  VARIABLES  ARE  ALREADY  SET  OP 
C  BEGIN  SIMULATION 

IPEED=  ICONFG  (3, lUNIT) 

IPROD=  -ICONFG (4, lONIT) 

CZIH=  0.0 

CTIH=  STREAM  (4, IFEEO) 

ZIM=  PAR(NPAR*3) 

PAE(NPAR'-4)/NSTAGE 
CAR£A=  PAfi(NPAB*7) 

PARFA=  PAB(NPAB*8) 

H=  PAR(NPAB*9) 

TEHP=  PAR(NPAB*10) 

PaESS=  PAR  (NPAB*>11) 

F=  STREAM  (1,IPEED) 

IF  (I SR  .GT.  1)  WRITE  (6, 120)  F,  CTIN 
120  FORMAT  ('OUV... BEFORE  CALL  TO  UOZONE, FLOH= • , G 10- 3 , 
e  '  TOC  CONC.=',G10.3) 

TOCHCT=  0. 

CALL  UOZONE  (ZI N,  CZIN,  CTl  N,  G,  F,  7.00T,  CZOUT,  CTO  UT) 

C  DETERMINE  IF  PRE-CONTACTOR  IS  PRESENT 
NNIN  NSTAGE 

IF  (PRECON  .ME.  0.0)  NNN=  NSTAGE  ♦  1 
STREAM (4, IPROD) »  CTOUT  (N STAGE) 


STREAn  (1 ,IPEQC)=  F 

AMTOUT  (4)  =  AKTO0T(4)  ♦  TOCBCT 
IF(1SW  .GT.  1  )  HRITE  (6,1  30)  F,  CTCOT  (NSTAGE) 

130  FORMAT  (•  UV... AFTER  CALL  TO  UOZONE,  FLOW  =  ',GlO. 
6  5X,'TOC  CONC.=  *,0  10.  3) 

VPeE=  PAREA*H 
VCCN=  CAREA>*H 
DO  160  1=  1  ,(INH 
IF(I  .EQ.  1)  GO  TO  140 
VCL=  VCCR 
SSO=  SS(I-I) 

DSO=  DS(l-l) 

GO  TO  150 
140  CONTINOE 

?OL=  VPHE 

SSO=  STREAM  (2,1FFED) 

DSO=  STREAM  (3, IFEED) 

150  CCNTINUE 

DDS(I)=  F*  (DSO-DS  (I)  )/YOL 
DSS(I)=  F*  (SSO-SS  (I)  ) /VOL 
160  COHTINOE 

DO  170  1=  1,  RUN 
SS(I)=  SS(I)  ♦  DSS{I)*DT 
DS(I)=  DS(I)  ♦  DDS(I)*DT 
170  CCNTINUE 

STREAM  (2, IPROD)=  SS  (NNN) 

STREAM  (3, IPROD)  =  DS(NNN) 

IF(ISi  .EC.  1) 

S  WRITE  (6,180)  (SS  (I)  ,I=1,NNN)  ,  (DS(I)  ,1-1,NNH) 

180  FOBMAIC  OV  ,110,8610.3, /110,8G10. 3) 

RETURN 

END 


o  n  o  n 


SOBBOOTIIE  aoZOHE(ZI1IO,CZI1IO,TOCIMO,G,F,ZOOT,CZOOT, 

6  TOCOOT) 

THIS  SDBBOOTIBE  PEPPOBHS  THE  STEADY  STATE  CALCOLATIOS 
FOR  THE  OLTRAVIOLET  OZOBATIOH  OHIT 

REAL  KLA,  KHEIIRT,  ITRATE,  EDCONP 
COHHOH  /DELTIT/  DT 
COHflOB  /0?L/  OfLITE 

COHHOH  /OPIT/  KHBMRI,  BCOZ,  ETOC,  KRATE,  KDCOHP, 

5  EOZD,  OVEPCT,  ALPHA,  EH,  QPRIHE 
COHHOH  /OZOPBB/  CAREA,  PAREA,  H,  RHO,  PRESS,  TBRP,  HIR 
DIHEHSIOH  ZOOT(IO),  CZOOT(IO),  TOCOnT(IO),  DCZBR  (10)  , 

6  DTOCBR(IO) 

COHHOH  /STAGES/  HSTAGE,PRECOH 
DATA  IPIHST/0/ 

EQOIVALEHCB  (HMH,IEHD) 

HHH=  HSTAGE 

IF(PRECOH  .HE.  0.0)  HHH=  HSTAGE  *  1 
IP(IFIRST  .HE.  0)  GO  TO  20 
C  FOR  FIRST  ITERATIOH,  SET  OP  IHLET  GAS  COHCEHTRATIOH 
C  TO  PRB-COHTACTOR 
IFIRST=  1 
TZOOT=  0. 

DO  10  Is  1,  HSTAGE 
10  TZOOT*  T200T  ♦  ZOOT(I) 

ZBARs  TZ00T/HSTA6E 
20  COHTIHOB 
0?LITE=  0. 

C  CALL  FOB  PRB-COHTACTOB 

CALL  DSTA6Z(ZBAB,  CZIHO,  TOCIHO,  HSTA6E*6,  F, 

8  ZOOT(HSTAGE«1)  ,  DCZBR  (HSTAGE^I)  ,  DTOCBR  (HSTAGE^I)  , 

8  PBBEA,  CZOUT(HSTAGB«1)  ,  TOCOOT (HSTAGE«  1) ) 

TZOOT*  0. 

C  SET  OP  Of  RADIATIOH  EFFECT  OH  RBACTIOH  RATE  COHSTAHTS 
OTLITBs  OfBFCT 
DO  60  Is  1,  HSTAGE 
C  SET  OP  IHPOTS  TO  THE  HBZT  STAGE 
ZIHs  ZIHO 
H»  I  -  1 

IF  (I  .HE.  1)  GO  TO  30 
Hs  HSTAGE  *  1 

IF(PRBCOI  .EQ.  0.0)  GO  TO  40 
30  COHTIHOE 

CZIHs  CZOOT(H) 

TOCIHs  TOCOOT  (H) 

60  TO  50 
40  COHTIHOE 

CZIHs  CZIHO 
TOCIHs  TOCIHO 
50  COHTIHOE 

CALL  0STA6B(ZIH,  CZIH,  TOCIH,  G,  F,  ZOOT(I),  DCZBR(I), 
8  DTOCBB(I),  CAREA,  CZOOT  (I)  ,  TOCOOT  (I)  ) 


TZOOT=  TZOOT  ♦  ZOOT{I) 

60  COMTIMOB 

C  DETEHHIHE  BEIT  GAS  COMCEBTBATIOH  TO  THE  PBE-COHTACTOB 
ZBAR=  TZODT/BSTAGB 
DO  70  1=  1,  IlHD 
C  TAKE  OHE  IBTBGRATION  STEP 

CZOOT(I)=  CZOOT(I)  ♦  DCZBH(I)*DT 
70  TOCODT(I)=  TOCOOT(I)  ♦  DTOCBR(I)*DT 
BBTOBH 


noon 


SUBROOTINE  USTAGE  (ZIN,C2 IN,TOCIN, G, F, ZOUT, DCZ, DTOC , 

&  AREA,CZOUT,TOCOUT) 

THIS  SUBROUTINE  PERFORMS  THF  STEADY  STATE  CALCULATIONS 
FOR  A  SINGLE  UV  STAGE 

REAL  KLA,  KHENBY,  KRATE,  KDCOMP 
EQUIVALENCE  (DCO MP,  DECOH  P)  ,  (NSTHRT,  NHRITE) 

COMMON  /DELTAl/  DT 
CCHMCN  /MATTOC/  TOCRCT 

COMMON  /UVFIT/  KHENEY,  EC02,  ETOC,  KRATE,  KDCOMP, 

6  EOZD,  UVFFCT,  ALPHA,  EN,  QPEIME 

CCHMCN  /UVL/  UVLITE 

COMMON  /OVPARM/  CAREA,  PAREA,  H,  SHO,  PRESS,  TEMP, 

8  NHRITE 

CCHMCN  /GASLAR/  EGAS 
DATA  JHRITE  /O/ 

C  USE  IDEAL  GAS  LAN  FOR  DETERMINING  GAS  DENSITY 
RHOGAS=  PRESS/TEMP/RGAS 
V=  AREA*H 
CZ=  CZOUT 
TOC=  TOCOOT 

C  DETERMINE  LIQUID  PHASE  RESIDENCE  TIME 
TAU=  V/F 

YIN=  ZIN/(1-0+ZIN) 

GHOLBS=  G*RHOGAS*  < 1. -TIN) 

AUX>  BHO/KHENRT 
C  DETERMINE  Hi  (U) 

XTZ=  EXP  {-RHC*CPRIHE*ABEA*G**(1.-BN)  / 

6  (KHENRY*V*fiHOGAS)  ) 

C  SET  OP  REACTION  RATE  CCMSIANIS 

RATB=  KRATE*(1.  ♦  UVLITE)  *(1.  ♦  UVLITE) 

DHATE=  KDCOMP*  (1.  ♦  UVLITE)  *(1.  ♦  UVLITE) 

C  BACK0ARO  DIFFERENCE  INTEGRATION  OF  CZ  EQUATION — REQUIRES 
C  ALGEBRAIC  HANIFULATIONS. 

E1=  GHOLES*  (1.-XIZ)/V 
D2=  1./TA0 
D3=  0. 

IF  (TOC  .GT,  0.0)  D3=  ALPHA*RATE*TOC*ETOC 
IF(CZ.GT.O.O)  GO  TO  10 
AECOZ^^  0. 

BECOZ-  0. 

AEOZD-  0. 

BBOZO»  0. 

GO  TO  20 
10  CONTINUE 

C  APPROXIMATIONS  RESULTING  FROM  FIRST  ORDER  TAYLOR 
C  SERIES  EXPANSION 

ABCOZ»  (1.-ECOZ)  *CZ**ECOZ 
BBCOZ=  ECOZ*CZ**(ECOZ-1  .) 

AE02D=  (1.-EOZD)  *CZ**EOZD 
EBOZD=  BOZD*CZ**  (EOZD-1.) 

20  CONTINUE 


D4=  (D1*ZIN  ♦  D2*CZIN  -  D3*AEC0Z  -  DH ATE*A SO  ZD)  *01 
D5=  -(D1/AUX  ♦  D2  ♦  D3*BECOZ  ♦  DRATE*BEOZD) *DT 
C2NE»=(CZ  +  D4)/(1.-D5) 

ZTOP=ZIN*XYZ*  (1.0-XTZ)  ♦CZNEU/AUX 
C  CALCULATE  TIME  DERIVATIVE  OF  OZONE  CONCENTRATION 
DCZ=  (CZNEW-CZ) /DT 
TCREAC=  0, 

IF (TOC  .GT.  0-0)  TCRBAC=  RATE* (TOC**ETOC) ♦ (C2**ECOZ) 

C  CALCULATE  TIME  DERIVATIVE  OF  TOC  CONCENTRATION 
DTOC=  (TOCIN-TOC)/TAO  -  TCREAC 
TOCRCT=  TOCHCT  ♦  TCRBAC*V*DT 
200T=  ZTOP 

C  DETEHNINE  IF  ANY  OUTPUT  IS  NECESSARY  AT  THIS  STEP 
1F{NHRITE  -LE-  0)  GO  TO  50 
JMRITE=  JNRITE  ♦  1 
IP(J»RITE  -LT.  NlfaiTE)  GO  TO  50 
30  CCNTINUE 
J«R1TE=  0 

«BITE{6,40)  21N,  C2IN,  TOCIN,  G,  F,  ZOUT,  AREA,  CZOOT, 
6  TCCOUT,  V,  CZ,  TOC,  TAU,  GNOLES,  2UX,  XYZ, 

6  RATE,  DRATE,  UVIITE,  TCREAC,  DCZ,  DTOC,  DT, 

E  D1,  D2,  03,  D4,  D5,  AECOZ,  BECOZ,  AEOZD, 

&  BECZD  ,CZNE« 

40  FORMATC  IN  OSTAGE*,  (/1X,8B12. 4)  ) 

50  CONTINUE 
RETURN 


SUfifiOUTINE  HC 


C 

C  THIS  IS  THE  HIPOCULOBIHAIIOH  INTERFACE 
C 

c  _ 

C  CALCIHH  1  “  ”l 

C  HYPCCHIOBITE  J  HYPOCBLORINATION  |  EFFLUENT 

C  - >j  I - >  2 

C  FEED  I  UNIT  |  (OUTPUT) 

C  1 - >, _ I 

c 

C  PARAHETEB  QUANTTTY 

Cl  pB  or  TEE  OUTPUT 

C  2  INITIAL  CHLORITE  IN  THE  HC  UNIT 

C  3  INITIAL  ISS  CONC. 

C  4  INITIAL  TDS  CONC. 

C  5  INITIAL  TOC  CONC. 

C  6  FEED  RATE  OF  CALCIUM  HYPOCHLORITE 

C  7  VCLUHE  OF  HYPOCHLOR I  NATION  UNIT 

C  8  CONC.  OF  CAOCL2  FEED 

C 


C  THE  FEED  STREAM  MUST  BE  SPECIFIED  FIRST 
C  THE  EFFLUENT  STREAM  HOST  BE  SPECIFIED  SECOND 

REALMS  HOCLD,  CCLO,  PHI,  FI,  PIN,  V,  ALPHA,  BD,  KEQ, 

S  CAOCL2,  PHI,  RCCLI,  OCLI,  CLI,  FAC 

BEAL  HHHOCL,  HWOCL 
COHHGN  /HCSAV2/  MNHOCL,  NBOCL,  RHO 
COMMON  /MATE  Al/  EALNCE(4},  AHTIN(4),  AHT0UT(4) 

COMMON  /CTIME/  TIME,  FTIHE,  DT 

COMMON  STBEAH(4,  100)  ,  ICONFG  (8 , 1  00)  ,  PAR  (500),  NPAB, 

C  NCALL,  lONIT,  NFATEB,  NS,  NEQ,  DESC(5) 

COMMON  /HCSAYE/  PHI,  HOC II,  OCLI 

COMMON  /HCPARM/T,  ALPHA,  BD,  KSg,  CAOCL2,  JHRITB,  HCNT 
COMMON  /HCSTOH/  SS,  DS,  TOC 
COMMON  /MATDIS/  MATCAI 
F1M»  PAB(NPAB>5) 

PAR(NFAB>6) 

CAOCL2-  PAB(NPAR*7) 

IF(HCALL)  10,70,80 
10  PHIS  paB(NPAB) 

1F(8ATCAL  .HE.  0)  60  TO  20 
SSs  PAB(HPAB«2) 

OSs  PAB(MPAR>3) 

TOCs  PAR(HPAfi«4) 

FACs  PAB(NPAB»1) 

OCLI*  (F AC*B HO/1 000000.) /(  (10. ♦♦  (-PHI)/KBQ)* 
e  NHHOCL^HNOCL) 

HOCLIs  (OCLI*  10.**  (-  PHI))/KEQ 
20  CCHTIHUE 

BALMCE(1)s  BALHCB(I)  ♦  T 
EALNCB(2)s  BALNCE(2)  ♦  T*SS 
BALNCE(3)s  EALMCE(3)  ♦  Y*DS 
EALNCE(4)s  BALNCE(4)  ♦  V*TOC 


1F(IC0NFG(3,IUN1T)  .Gl.  0)  GO  TO  40 
■eiTE(6,30)  lUNIT,  ICCNFG  (3, lONIT) 
FOBHAT  (6X, EBROR,  UNIT', 15, •  1 


FIRST  STREAM 


8  'COMFIGOBATION  IS*, 15,*.  MOST  BE 
HFATER=  NEATER  ♦  1 

40  IF  (IC0NFG(4,IUNIT)  .LT.  0)  GO  TO 
HRITE  (6,  50)  IUNIT,ICOMFG  (4,I0NIT) 

50  FORHAT(6X,  ERROR,  DNIT*,I5,»- 


MDST  BE  THE  FEED.  •) 


50  FORHAT(6X, ERROR,  DNIT*,I5,»-  SECOND  STREAM  IN', 

8  •  CONFIGOHATICN  IS*,I5, *.  MUST  BE  THE  EFFLUENT.*) 
HFATER=  NEATER  ♦  1 
60  CONTINUE 

THE  HCSS  ROUTINE  EXPECTS  THE  TOTAL  CHLORINE  DEMAND,  BD, 

TO  BE  EXPRESSED  IN  MOLAR  UNITS.  SIMILARLY  FOR  ALPHA 

AS  ENTERED  IN  THE  INPUT  CATA,  RD  IS  IN  TERMS  OF  PARTS  PER 
MILLION.  ALPHA  IS  IN  TERMS  OF  FRACTIONAL  PARTS  PER  HILLI 
THE  FOLLOBING  SECTION  OF  CODE  RE-COMPUTES  ALPHA  AND  RD 
A  MOLAR  BASIS. 

HOCLD=  {HD*ALPHA*RHO)/( 1000000. ♦MHHOCL) 

OCLD=  (RD*RHO/1000000-  -  HOCLD*HHHOCL) /MHOCL 
RO=  HCCLC  ♦  QCLD 
ALPHAS  0. 

IF(BD  .GT.  0.)  ALPHA=  HOCLD/BD 
70  CONTINUE 
BETORN 
80  CONTINUE 

IFBED»  IC0MF6(3,IUNIT) 

IPROD=  -ICONFG(4,IONIT) 

FI-  STREAM  (1,IFEED) 

PH1=  7.0 

CALL  HCSS  (F1, FIN, PHI) 

FAC=  (HOCLI*HBHOCL+OCLI*HBOCL)/RHO* 1000000. 

DSS=  (Fl*STBEAH(2,lfEED)  -  (FUFIN)*SS)/¥ 

DDS*  (F1*STRBAH  (3,IPBED)  -  (F  UFIN)  ♦DS) /? 

DTOC=  (F1*STREAH  (4,IFEED)  -  (F1+FI  N)  ♦TOC) /V 
SS=  SS  ♦  CSS^DT 
OS*  DS  ♦  DDS*DT 
TOC*  TOC  ♦  DTOC^DT 
STREAM  (1,1PROO)*  FI  ♦  FIN 
STREAH  (2,IPB00)*  SS 
STREAM  ( 3, IFROD)  *  DS 
STREAM  ( 4, IPROO)  *  TOC 


STREAH  (2, IPROO)* 
STREAH  (3, IPROO)  * 
STREAH (4, IPROO)  * 
PAB(NPAB«1)*  FAC 
PAB(HPAB)*  PHI 
RETURN 
END 


r/Ti 


SOBHOOTINE  HCSS  (F 1  ,F IB ,PH 1 ) 

C 

C  THIS  SUBROUTINE  PERFORMS  THE  STEAOI  STATE  HYPOCHLOEINATION 
C  CALCULATIONS 

C  SEE  THE  REPORT  BY  SMITH  AND  STARKS  ON  THE  HC  UNIT  FOR  A 
C  DISCRIPTION  OF  VARIABLES 
C 

REAL*8  V,  ALPHA,  RD,  KEQ,  CAOCL2,  PHI,  HOCLI,  OCLI, 

6  HI,  H,  OH,  OHI,  FI,  F2,  PHI,  FIN,  SUM,  DSUM, 

5  HOCLBG,  HOCLSH,  HOCl,  OCL,  HOCLP,  ATERM, 

6  BTERM,  CTERM,  X,  RADCL,  HNEH 

COMMON  /HCPARM/V,  ALPHA,  RD,  KEQ,  CAOCL2,  JWRITE,  MCNT 
COMMON  /HCSAVE/  PHI,  HOCII,  CCLI 
COMMON  /CTIME/  TIME,  PTIHE,  DT 
EQUIVALENCE  (JERBOR, JNRITE) 

DATA  JERRCT/0/ 

H1=  10.0**(-PH1) 

H=  10. O**  (-PHI) 

0H1=  1.E- 14/HI 
CH=  1.E-14/e 
F2=  FI  ♦  FIN 
C  BEGIN  SOLUTION 

SU8=  HOC LI  ♦  OCLI 

DSOM=  (2.*PIN*CACCL2-F1*RD-F2*SUM)  /V 
S0M=  SOM  ♦  DS0H*DT 
HOCLBG^  SON 
HOClSM=  0.0 
DO  60  1=  1,  MCNT 

HOCL=  (HOCIBG+BOCLSM) /2. 

C  ATERM,  BTERM,  AND  CTERM  ABE  THE  COEFFICIENTS  USED  IN  THE 
C  SOLUTION  OF  X 

ATEHB=  H  ♦  (F1*H1  ♦  2. ♦FIN*CAOCL2  -  F2*eOCL  - 
G  F2*H  -  ALPHA*RD*F1) *01/7 

BTEEN=  -F2*DT/V 

CTERH=  OH*  (F1*0H1*2.*FIN*CA0CL2-F2*0H)*DT/V 
RADCL=  ((CTERM  ♦  AT BRH) ♦  (CTERM  ♦  ATERM)  - 
6  4.0*  (ATEBH*CTEBH  -  1.  E-14)) 

1F(RA0CL  .GE.  0.0)  GO  TO  10 
C  HOCL  IS  TOO  SHALL 
GO  TO  20 
10  CONTINUE 

X»  (-(CTEBH*ATEBM) ♦DSQRT  (RADCL) )/2./BTBBH 
UNBH»  ATERH»BTEBH*X 

C  CHECK  FOR  UNBEALISIIC  VALUES  OF  H*  AT  TIME  T*DT 
IF(HREN.LE.O.O)  GO  TO  30 
OCL«  KEQ*HOCL/HNE« 

C  OBTBBHIHE  HOCL*,  THE  CHECK  ON  ASSUMED  VALUE  OF  HOCL 
BOCLP>  SUn-OCL 

IF  (HOCL  .GT.  HOCLP)  GO  TO  30 
20  HOCLSH*  HOCL 
GO  TO  40 
30  HOCLBG*  HOCL 
40  CCNTINOE 


IF(JERROR  .LB.  0)  GO  70  60 
C  DETERMINE  IF  ANY  WRITING  IS  TO  BE  PERFORMED 
JEBRCT=  JEBRCT  ♦  1 
1F(JERRCT  .LT.  JEEROR)  GO  TO  60 

WRITB{6,50)  I,  TIME,  BOCl,  HOCLP,  OCL,  KNEW,  X,  RADCL, 
S  ATERM,  BTERM,  CTERH,  HOCLBG,  HOCLSM,  H,  OH 

50  FORMATC  IN  HYPOCL.,.I=  •  ,15  ,  (/I  X  ,5G  15.  5)  ) 

60  CCHTINOE 

C  UPDATE  VALUES  TO  TIME  T+CT 
HOCLI=  HOCL 
OCLI=  OCL 
PHI=  -DLOGIO  (HNEH) 

RETURN 

END 


SUBSOUTINE  SK 


C 

C  SIMOLATION  OF  STREAM  SINK 


C 

c  _ 

C  INPUT  I 

C  STREAMS  I 

C  1-5  - >i  SINK 

C  I 

C  I _ 

C 


C  THERE  ARE  NO  PARAMETERS 
COMMON  /LOOK/  ISH 

COMMON  STREAM(4,  100)  ,  ICONFG  (8 , 1 00)  ,  PAR  (500),  NPAR, 
S  NCALL,  lUNIT,  NFATER,  NS,  NEQ,  DESC(5) 

COMMON  /MATBAL/  BALNCE  (4)  ,  AHTIN(4),  AMTOOT(4) 

COMMON  /CTIME/  TIME,  FTIHE,  DT 
C  ASCERTAIN  IF  READ  DATA,  INITIALIZE  OR  SIMULATE 
IF(NCALl}  10,  20,  30 

C  RETURN  IF  MATERIAL  BALANCE  CALCULATIONS 
10  RETURN 

C  THEBE  ARE  NO  INITIALIZATION  CALCULATIONS 
20  RETURN 

C  SIMULATE  CALCULATICSS  CONSIST  ONLX  OF  MATERIAL  BALANCE 
C  EQUATIONS 
30  DO  50  1=3,7 

J=ICONFG(I,IUMIT) 

IF  (J  . EQ.  0)  GO  TO  60 
F=  STREAM  (1,J) 

AHTOOT(1)=  AMTOOT(I)  ♦  F*DT 
DO  40  L=2,4 

40  AHTOUT(L)=  AMTOUT  (L)  ♦  F*STRE  AM  (L,  J)  *01 
50  CONTINUE 

60  IF(ISN.EQ.  1)  NBITE(6,70)  (AMTOUT  (I)  ,  1=1 ,4) 

70  FORHAT(*  UNIT', 15,*  SK  TOTALS  FLOW=»,  G10.3,5X, 

5  *53=* ,G10.3,5X, »DS=* ,G1 0. 3,5X, • TOC= * ,G1 0.3) 

RETURN 

END 


SUBBOUTINE  SENSCE 


C 

C  THIS  SOEROUTIME  SENSES  A  DNIT  PARAMETER  OE  A  STREAM 
C  ELEMENT  AND  PRODUCES  TEE  TIME  INTEGRAL  OF  THE  ERROR 
C 

c  _ 

C  MEASURED  |  |  OUTPUT 

C  ♦♦♦♦♦♦>!  SENSOR  !♦♦♦♦♦♦♦> 

C  VALUE  I  I (TO  CONTROLLER) 

C  I _ I 

c 

C  PARAMETER  QUANIIIX 

C  1  UNIT  OB  STREAM  NUMBER 

C  2  PARAMETER  OB  ELEMENT  NUMBER 

C  3  INITIAL  OUTPUT  VALUE 

C  4  INTEGRATION  TIME  CONSTANT,  TAU 

C  IF  TAU  IS  EQUAL  TO  ZERO,  THEN  THE  VALUE  IS  RETURNED 

C  IF  TAU  IS  NON-ZEBO,  THEN 

C  (NEi  VALUE  -  OLD  OUTPUT  VALUE) /TAU 

C  IS  INTEGRATED  AS  THE  NEB  OUTPUT  VALUE 

COMMON  /LOOK/  ISH 
DATA  IGET/»GV 

COMMON  STREAM  (4, 100)  ,  ICONFG  (8 ,100)  ,  PAR  (500),  NPAR, 
6  NCALL,  lUNIT,  NEATER,  NS,  NEQ,  DESC(5) 

COMMON  /CTIME/  TIME,  FTIHE,  DT 
IF  (NCALL)  10,20,30 
C  MO  MATERIAL  BALANCE  CALCULATIONS 
10  RETURN 
20  COMTINOE 
30  CONTINUE 

1=  PAR (NPAR) 

FAR (NPAR*  1) 

CALL  GETPOT(IGET,I,J,R) 

C=  PAR(NFAR*2) 

TAU=  PAR(NPAR*3) 

IF(TAO.EQ,0,0)  G01050 
DC=  (R-C)/TA0 
IF  (ISH  .GT.  0) 

&  NRITE(6,40)  I,  J,  C,  TAD,  DC,  C,  R 
40  F0RM1T(»  IN  SENSOR  »  ,  (8G  15.  5,/l  X)  ) 

C=  C  ♦  DC*DT 
GO  TO  60 
50  C=  R 

60  PAR  (NPAR*2)  =  C 
RETURN 
END 


SUBROUTINE  flANIP 


C  THIS  SUBROUTINE  IS  USED  TO  CHANGE  THE  VALUE  OF  A  PARAMETER 
C  OF  A  UNIT,  IE.  INCREASE  A  PUMP  OR  AN  OVERFLOR  FLOW  HATE 


c 

VALUE 

1 

1  CONTROLLED 

c 

♦  ♦  >1  MANIPULATOR  *****  *  > 

c 

(FROM  CONTROLLOfi) | 

1  PARAMETER 

c 

1 

1 

c 

c 

PARAMETER 

QUANTITY 

c 

1 

NUMBER 

OF  UNIT  TO  MANIPULATE  (NEGATIVE) 

c 

2 

PARAMETER  NUMBER 

c 

3 

OUTPUT 

VALUE 

c 

4 

UPPER 

LIMIT 

c 

5 

REAL  LOVAL 

LONER 

LIMIT 

COMMON  /LOOK/  ISW 
DATA  IPUT/'PV 

COMMON  STREAM  (4,  100)  ,  ICONPG  (8,  100)  ,  PAR  (500),  NPAR, 

5  NCALL,  lUNlT,  NFATER,  NS,  NEQ,  DESC{5) 

IF(NCAIl)  10,20,30 

10  RETURN 
20  CONTINUE 
30  CONTINUE 

ITEH=  PAR(NPAB) 

IF  (ITEM  .LT.  0)  GO  TO  50 
NBITE(6,40)  ITEM,  lUNIT 

40  POHMAT(*  IN  ROUTINE  MANIP...CAM  ONLY  MANIPULATE*, 

G  *  EQUIPMENT. ...XOD  HAVE  SPECIFIED  STREAM  NUMBER*, 110, 

6  *.  CURRENT  UNIT  NUMBER  IS*, 110) 

NFATBR=  NFATER  ♦  1 

50  CONTINUE 

J=  PAR(NPAR^I) 

VALUED  PAR(MPAR>2) 

HIVAL=  PAB(NPAB^3) 

LOVAL=  PAR  (NPAR^4) 

IF  (VALUE  .GT.  HIVAL)  VALUE=  HIVAI 
IF (VALUE  .IT.  LOYAL)  VALUE=  LOVAL 
IF  (ISN  .GI.  0) 

e  HRITB(6,60)  ITEM,  J,  VALUE,  HIVAL,  LOVAL 
60  FOBHAI(*  IN  MANIP  *  ,  (8G1 5.  5,/1X)  ) 

PAB(NPAfit2)=  VALUE 

CALL  GBTPOT(IPOT, ITEM, J,  VALUE) 

RETURN 


SUBfiOOTINE  BINARX 


C 

C  THIS  SOBROOTINE  IS  USED  TO  SIMULATE  A  BINARY  CONTROLLER 
C 

c  _ 

C  FROM  I  ~  I  TO 

C  ♦♦♦♦♦♦>1  BINARY  !♦♦  ♦♦♦»♦> 

C  SENSOR  I  CCNTBOLLER  |  MANIPULATOR 

C  I _ I 

C 

C  PARAMETER  CCNTENT 

C  1  SENSOR  NUMBER 

C  2  MANIPULATOR  NUMBER 

C  3  LOSER  SET  POINT  VALUE 

C  4  UPPER  SET  POINT  VALUE 

C  5  VALUE  OF  THE  CONTROLLED  VARIABLE 

C  6  UPPER  LIMIT  OUTPUT  VALUE 

C  7  lOHEE  LIMIT  OUTPUT  VALUE 

C  8  OPERATION  BODE  (NEGATIVE=  AUTOMATIC, 

C  PCSITIVE=  OUTPUT  VALUE  FOE  MANUAL  MODE) 

REAL  LOWSET,LCVAL 

COMMON  STREAM  (4,100)  ,  ICONFG  (8 , 1 00)  ,  PAR  (500),  NPAR, 

8  NCALL,  lUNIT,  NFATER,  NS,  NEQ,  DESC(5) 

COHMCN/LOCK/ISH 
DATA  IGET,  IPUT/'G»,  »?•/ 

IP(NCALL)  10,  20,  30 
10  RETURN 
20  CONTINUE 
.30  CONTINUE 

ISEN=  PAE(MEAB) 

IRAN-  PAB(MEAB^I) 

LOHSET-  PAR (NPAB+2) 

HISET=  PAB(NEAR+3) 

VALUED  FAB(NPAB4-4) 

HIVAL^  PAR  (NPAR^S) 

LOVAL=  PAR  (NPAB«^6) 

AHOOE=  PAB(NPAR>7) 

IF(AnODE  .6T.  0.)  GO  TO  60 
C  CONTROLLER  IS  ON  AUTO 

CALL  GETP0T(IGET,ISEN,3,VNEH) 

IPIVHEW  .GT.  LOWSET  .AND.  VNER  .6T.  HISET)  VALUE=  HIVAL 
1F(VNEH  .LT.  LOHSET  .AND.  VNEH  .IT.  HISET) VALUED  LOYAL 
40  CALL  GETPUKIPUT, IRAN, 3, VALUE) 

IF  (ISH.GT.O) 

8  HB1TE(6,50)  ISEN,  IRAN,  LOHSET,  LOYAL,  HIYAL,  ANODE, 

8  VNEH,  VALUE 

50  FOBHAT  (*  IN  BINARY  •  ,  (8G 15.  5,/ IX)  ) 

PAB(NPAR*4)=  VALUE 
RETURN 

C  CONTBOLLEB  IS  OB  MANUAL 
60  VALUE=  ANODE 
GO  TO  40 


SUBEOOTINE  PATIO 


C 

C  THIS  SUBBODTINI  SIMOLAIE  A  RATIO  CONTROLLFR 
C 

C  _ 

C  I  I 

C  FBCM  SENSOR  1  RATIO  1  TO  HANIPOLATOH 

C  ♦♦♦*♦♦>!  CCNTBCLLEB  !♦♦♦♦♦♦*♦> 

C  I _ I 

C 

C  PARAMETER 
C  1 

C  2 

C  3 

c  a 

C 
C 

REAL  H 

COMMON  STREAM  (4, 100)  ,  ICONFG  (8 ,1 00)  ,  PAH(500),  NPAR 
6  NCALL«  lONIT,  NEATER,  NS,  NEQ,  DESC(5) 

COMMON  /LOCK/  ISH 

DATA  IPUT,  IGET/*P*,  'G*/ 

IF(NCALL)  10,  20,  30 
10  RETURN 
20  CONTINUE 
30  CONTINUE 

IS£N=  PAR(NPAR) 

IHAM=  PAR  (NPAB^I) 

CALL  GETPUT(IGET,ISEN,3,C) 

B==  PAB(NPAB^2) 

AMODE=  PAR(NPAB^3) 

IF  (ANODE  .GT.  0)  GO  TO  60 
H=  B*C 

IF  (ISH  .GT.  0) 

6  RBITE(6,40)  ISEN,  IHAN,  R,  C,  ABODE,  M 
40  FORBAT(»  IN  RATIO  » ,  (8G1 5.  5,/ IX)  ) 

50  CALL  GETPUT(IPUT,INAM,3,N) 

RETURN 

60  M-  ANODE 

GOTO50 


QUANTITX 

SENSOR  UNIT  NUMBER 
MANIPULATOR  UNIT  NUMBER 
RATIO 

OPERATION  MODE  (NEGATIVE=  AUTOMATIC 
PCSITIVE=  OUTPUT  VALUE  FOR  MANUAL) 


SOBBOUTINE  PID 


C 

C  THIS  SOBBOUTINE  SIMULATES  A  PID  CONTROLLER 
C  USING  THE  VELOCITY  ALGOBITUM 
C 

C  _ 

C  FROM  SENSOR  |  ”  |  TO  MANIPULATOB 

C  ♦♦*«♦♦♦>!  P-I-D  !♦*♦♦♦♦♦♦  > 

C  i  I 

C  1 _ I 

C 

C  PARAMETER  QUANTITY 

C  1  UNIT  NUMBER  OF  THE  SENSOR  (NEGATIVE) 

C  2  UNIT  NUMBER  OF  THE  MANIPULATOB  (NEGATIVE) 

C  3  SETPOINT 

C  4  GAIN 

C  5  RESET  TIME 

C  6  DERIVATIVE  TIME 

C  7  MODE  OF  OPERATION  (NEGATIVE=  AUTOMATIC, 

C  FOSITIVE=  OUTPUT  VALUE  FOR  MANUAL) 

C 

REAL  RC,M 

COMMON  STREAM  (4, 100) ,  ICONFG  (8, 100) ,  PAR (500) ,  NPAR, 

6  NCALL,  lUNIT,  NFATEH,  NS,  NEQ,  DESC(5) 

COMMON  /CTIME/  TIME,  FTIME,  DT 

COMMON  /PIDSAV/  EIMI,  BIM2 

COMMON  /LOOK/  ISS 
DATA  IGET,  IPUT/*G»,  •?•/ 

C  THIS  ROUTINE  OSES  THE  VELOCITY  ALGORITHM 
ISEN=s  PAR  (NPAR) 

IMAN=  PAB(NPAR«1) 

IF  (NCALL)  10,20,40 
10  RETURN 

C  CHECK  TO  SEE  IF  ACCESSING  SENSORS  AND  MANIPULATORS 
20  EIH1=  0. 

EIH2=  0. 

IF(IHAH  .IT.  0  .AND.  ISEN  .LT.  0)  GO  TO  40 
NBITE(6,30)  IBAN,  ISBN 

30  FORMAT  (*  IN  PID. ..IMPROPERLY  SPECIFIED  SENSOR  OB  ', 
fi  »  MANIPULATOR  V*  MANIPULATOR  IS*, 15,'  SENSOR  IS*, 15) 
NFATERs  NEATER  *  1 
RETURN 

40  R-  PAR(NPAB«2) 

CALL  GETPUT  (IGET,ISEH,3,C) 

EI=  R  -  C 
RC-  PAB(NPIF«3) 

TI=  PAR(NPAR*4) 

I0»  PAB(NPABt5) 

ANODE-  PAB(MPAB*6) 

IF  (ABODE  .GT.  0.)  GO  TO  60 

C  CONTROLLER  IS  ON  AUTO 

DE*  (El  -  EIH1)/DT 

DE2=  (El  -  2. ♦E1M1  ♦  EIM2) / (DT*DT) 


faS  id 


SOBEOOTINE  GETPOT  (ICODE,  ITEMO,  J,  V ALOE) 


C 

C  THIS  SOBBOOTINE  PBOVIDES  THE  INTERFACE  BETHEEN  THE 
C  SENSORS  AMD  CONTROLLERS  AND  THE  PROCESS  UNITS  AND  STREAMS 
C  IF  ICODE=  *P*  THEN  ‘•VALOE"  IS  ASSIGNED  TO  THE  PARAMETER 
C  OB  ELEBENT  SPECIFIED  BY  •‘ITEMO**  AND  "J" 

C  IF  ICODE=  ‘G*  THEN  ••TALOB"  IS  SET  EQUAL  TO  THE  VALUE 
C  OF  THE  SPECIFIED  PARAMETER  OB  ELEMENT 
C  ITEHO=  UNIT  NUMBER  IP  NEGATIVE 
C  =  STREAM  NUMBER  IF  POSITIVE 

C  UNIT  PARAMETER  OR  STREAM  ELEMENT  NUMBER 

C 

COMMON  STREAM  (100«4)  ,  ICCNFG  ( 100,  8)  ,  PAR  (500),  NPAR, 

&  NCALL,  lUNIT,  NPATER,  NS,  NEQ,  DESC(5) 

COMMCN  /LOOK/  ISi 
DATA  IPUT/'P*/ 

DATA  1GE1/*GV 
ITEH=  ITEMO 

C  CHECK  ON  VALIDITY  OF  ICODE 

IF(ICODE  .EQ.  IGET  .OR.  ICODE  .EQ.  IPDT)  GO  TO  20 
NRITE(6,10)  ICODE 

10  FORMAT  (*  IN  ROUTINE  G ETPUT. .. INVALID  CODE.*,/*  ICODE*, 
6  *  IN  I  FORMAT  IS  *,110,*  ICODE  IN  A  FORMAT  IS  *,A1) 
MFATER-  NFATEB  *  1 
RETURN 

20  IF  (ITEM  .GT.  0)  GO  TO  60 
C  HAVE  A  PIECE  OF  EQUIPMENT 
ITEM*  -ITEM 

C  FIND  POSITION  •*K"  OF  UNIT  IN  CONFIGURATION 
C  (POSITION  IS  NOT  NECESSARILY  EQUAL  TO  THE  UNIT  NUMBER) 

DO  30  K-1,REQ 

IF  (ICORFG(K,  1)  .EQ.  ITEM)  GO  TO  50 
30  CONTINUE 

HRITE(6,40)  ITEM 

40  FORMAT  (•  IN  ROUTINE  6ETPUT. ..  UNABLE  TO  FIND  UNIT* 
e,*  NUMBER*  ,15,/*  SETTING  ERROR  CODE*) 

NFATEB^  NEATER  ♦  1 
RETURN 

C  HAVE  FOUND  CORRECT  PIECE  OF  EQUIPMENT 
50  N«  ICOMFG(K,8) 

C  N-  LOCATICN  OF  FIRST  PARAMETER  FOR  THIS  OMIT  IN  •*PAR** 

IF  (ICODE  .EQ.  IPUT)  PAB(N^J-1)»  VALUE 
IF  (ICODE  .EQ.  IGBT)  VALUE=  PAR(M»J-1) 

RETURN 

C  HE  HAVE  A  STREAM 

60  IF(ICODE  .EQ.  IGET)  VAL0E»  STREAM  (ITEM,  J) 

IF(ICOOE  .EQ.  IPUT)  STREAM  (ITEM,  J)  >  VALUE 
60  TO  50 
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